Comment faire Pour centrer le Texte dans un tableau est créé à l'aide d'une macro dans Word

J'ai une macro qui crée une table avec 2 colonnes. Je veux centrer le texte.

J'ai besoin de connaître la fonction/méthode pour ce faire (j'.e non enregistrée) que je suis l'édition d'un complexe de macro dans un outil spécifique à l'extérieur de Microsoft Word. 

Function TableStyleApply(oTable)
  Const wdLineWidth050pt = 4
  Const wdLineStyleSingle = 1
  Const wdBorderTop = -1
  Const wdBorderLeft = -2
  Const wdBorderBottom = -3
  Const wdBorderRight = -4
  Const wdBorderHorizontal = -5
  Const wdBorderVertical = -6
  Const wdAlignParagraphCenter = 100

  oTable.Borders(wdBorderTop ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderLeft ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderBottom ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderRight ).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderHorizontal).LineStyle = wdLineStyleSingle
  oTable.Borders(wdBorderVertical).LineStyle = wdLineStyleSingle

  oTable.Rows(1).Range.Font.Bold = True
  oTable.Rows(1).Shading.BackgroundPatternColor = 15132390
  oTable.Rows.LeftIndent = 43
  oTable.Columns(1).SetWidth 280, 2
  oTable.Columns(2).SetWidth 157, 2

  oTable.Columns.ParagraphFormat.Alignment = wdAlignParagraphCenter

End Function
  • quelle est la différence si elles ont été enregistrées ou non. MacroRecorder est la première et la meilleure solution pour obtenir ce...de la propriété. Donc, vous devez l'utiliser. Cependant, ce que vous avez besoin est peut-être quelque chose comme ceci: Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  • grâce KazJaw - j'ai essayé ça, mais est une erreur. Il indique la wdAlignParagraphCenter n'est pas défini. J'ai donc essayé d'ajouter une ligne qui dit Const wdAlignParagraphCenter = 1 mais toujours pas de chance
  • vous avez mentionné que vous utilisez specific tool outside of microsoft word qui pourrait être un problème... qu'est-ce que cet outil? quel est ton code?
  • Salut Kaz-je utiliser un outil appelé MEGA. J'ai ajouté le code que les styles de la table ci-dessus. toutes les autres instructions de travail à l'exception de l'alignement l'un - le message d'erreur indique que l'objet ne prend pas en charge la fonction
  • est-il VBA (langage de programmation)?
  • oui MEGA vous permet d'écrire des scripts pour exécuter des fonctions. dans ce cas, c'est la création d'un tableau qui est ensuite placé dans un document word.
  • Salut Kaz, Merci de revenir vers moi avec la réponse. Toutefois, cela ne fonctionne toujours pas pour une raison quelconque. Je suppose que c'est parce que je suis en utilisant un programme externe pour générer la table. Je vais continuer d'essayer de bien! 🙂

InformationsquelleAutor user2791146 | 2013-10-21
  1. 3

    Vous avez besoin de se référer à toute la Gamme de l'objet si vous souhaitez aligner votre texte au centre. Donc, essayez avec cette option

    Pour l'ensemble de la table

    oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

    Une seule colonne (ici, pour les 1re et 2e colonnes)

    oTable.Columns(1).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

oTable.Columns(2).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    • Salut Kaz - pour info je managaed pour obtenir ce travail par essais et erreurs en ajoutant oWordDocument.Gamme.ParagraphFormat.L'alignement = 1 ailleurs dans mon code.
    • pourquoi le choisir? pourquoi ne pas oTable.Columns(1).ParagraphFormat.Alignment = wdAlignParagraphCenter directement?
    InformationsquelleAutor Kazimierz Jawor
  2. 0

    Cette ligne, définissez l'alignement au centre de toutes les cellules dans une table spécifique:

    cDoc.Tables(1).Range.ParagraphFormat.Alignment = wdAlignParagraphCenter
    InformationsquelleAutor Jake Burdsall