Ausgewählte Spalten einer Tabelle rechtsbündig

[Nyn007]

Ha((o

Habe via VBA aus Excel heraus eine Tabelle in Word erstellt.
Eine Spalte der Tabelle soll rechtsbündig sein, der rest bleibt linksbündig.

Ich habe es mit folgendem Code versucht, da aus anderen Foren eigentlich kopiert, aber es geht nicht.

Sub Tabelle_Fuellen(ByRef wddoc As Word.Document)

Dim wdtable As Object

Set wdtable = wddoc.Tables.Add(Range:=wddoc.Bookmarks("Tabelle").Range, NumRows:=z2 - z1 + 1, NumColumns:=8)

wdtable.Columns(8).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

End Sub

Eigentlich müsste auch folgendes gehen. Aber geht erst recht nich.

'wdtable.Columns(8).ParagraphFormat.Alignment = wdAlignParagraphRight

Ich bekomme jedes Mal folgende Fehlermeldung:
[
Bild bitte so als Datei hochladen: Klick mich!
]

Hat jemand eine Idee?
Grüße

[schauan]

Hallöchen,

ich hab mal was aufgezeichnet und mit Deiner Ausrichtung ergänzt, was bei mir unter 2016 funktioniert:

Code:

ActiveDocument.Tables.Add(Range:=Selection.Range, NumRows:=2, NumColumns:= _
    2, DefaultTableBehavior:=wdWord9TableBehavior, AutoFitBehavior:= _
    wdAutoFitFixed).Columns(2).Select
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

[Nyn007]

Ha((o Schauan

Wo ist der Unterschied zu meinem Code???
Ich habe jetzt versucht die optionalen Standardwerte bei der Tabellengenerierung mit anzugeben, aber der gleiche Fehler erscheint wieder.
Ich weiß echt nicht was ich noch machen soll.

Grüße

[Kuwer]

Hallo,

schreibe mal statt

Selection.ParagraphFormat.Alignment = wdAlignParagraphRight

mit entsprechendem Wert:

Selection.ParagraphFormat.Alignment = 2

siehe Objektkatalog in Word (Aufruf mit F2)

   

Gruß Uwe

[Nyn007]

Ha((o Uwe.

Leider bekomme ich auch dann (mit einer 2) die gleiche Meldung. ... Frust

Grüße

[cweimer]

Ha((o Uwe.

Leider bekomme ich auch dann (mit einer 2) die gleiche Meldung. ... Frust

Grüße

Hast du es lösen können?
LG