Wie Zum Zentrieren von Text in einer Tabelle, die erstellt wird, mithilfe von Makros in Word

Ich habe ein makro erstellt eine Tabelle mit 2 Spalten. Ich will zentrieren Sie den text.

Ich wissen muss, um die eigentliche Funktion/Methode, dies zu tun (ich.e nicht aufgenommen), wie ich bin, Bearbeitung einer komplexen makro in ein spezifisches Instrument außerhalb von 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
  • was ist der Unterschied, wenn es aufgenommen wird oder nicht. MacroRecorder ist Ihre erste und beste Lösung, diese zu erhalten... - Eigenschaft. Also, sollten Sie es verwenden. Jedoch, was Sie brauchen, ist vielleicht so etwas wie dieses: Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
  • Dank KazJaw - ich wollte versuchen, diese aber bekam eine Fehlermeldung. Es besagt, die wdAlignParagraphCenter ist nicht definiert. Also ich habe versucht, das hinzufügen einer Zeile, die sagt, Const wdAlignParagraphCenter = 1, aber noch kein Glück
  • Sie haben erwähnt, Sie verwenden specific tool outside of microsoft word was ein problem sein könnte... was ist das tool? was ist dein aktuelle code?
  • Hi Kaz, ich benutze ein tool namens MEGA. Ich habe den code Hinzugefügt, mit dem Stile der obigen Tabelle. alle anderen Aussagen außer der Ausrichtung eines - die Fehlermeldung sagt, dass das Objekt unterstützt nicht die Funktion
  • ist es VBA (Programmiersprache)?
  • ja MEGA können Sie Skripts schreiben, um Funktionen durchzuführen. in diesem Fall ist es eine Tabelle erstellen, die dann in ein word-Dokument.
  • Hi Kaz, Danke für immer zu mir zurück mit der Antwort. Jedoch ist dies immer noch nicht funktioniert aus irgendeinem Grund. Ich denke, es ist weil ich bin mit einem externen Programm generiert die Tabelle. Ich werde weiterhin versuchen aber! 🙂

InformationsquelleAutor user2791146 | 2013-10-21
  1. 3

    Finden Sie alle Range-Objekt, wenn Sie möchten, richten Sie Ihren text in der Mitte. Also, versuchen Sie mit diesen Optionen

    Für die gesamte Tabelle

    oTable.Range.ParagraphFormat.Alignment = wdAlignParagraphCenter

    Für jede einzelne Spalte (hier für den 1. und 2. Spalten)

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

oTable.Columns(2).Select
    Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
    • Hi Kaz - FYI ich managaed damit dies funktioniert durch Versuch und Irrtum, durch hinzufügen oWordDocument.Bereich.ParagraphFormat.Alignment = 1 an anderer Stelle in meinem code.
    InformationsquelleAutor Kazimierz Jawor
  2. 0

    Diese Linie setzen die Ausrichtung auf Mitte für alle Zellen in einer bestimmten Tabelle:

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