Dieses Forum nutzt Cookies
Dieses Forum verwendet Cookies, um deine Login-Informationen zu speichern, wenn du registriert bist, und deinen letzten Besuch, wenn du es nicht bist. Cookies sind kleine Textdokumente, die auf deinem Computer gespeichert werden. Die von diesem Forum gesetzten Cookies werden nur auf dieser Website verwendet und stellen kein Sicherheitsrisiko dar. Cookies aus diesem Forum speichern auch die spezifischen Themen, die du gelesen hast und wann du zum letzten Mal gelesen hast. Bitte bestätige, ob du diese Cookies akzeptierst oder ablehnst.

Ein Cookie wird in deinem Browser unabhängig von der Wahl gespeichert, um zu verhindern, dass dir diese Frage erneut gestellt wird. Du kannst deine Cookie-Einstellungen jederzeit über den Link in der Fußzeile ändern.

Ausgewählte Spalten einer Tabelle rechtsbündig
#1
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.


Zitat: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.
Zitat:'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
Nyn007
Antworten Top
#2
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
.      \\\|///      Hoffe, geholfen zu haben.
       ( ô ô )      Grüße, André aus G in T  
  ooO-(_)-Ooo    (Excel 97-2019+365)
Antworten Top
#3
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
Nyn007
Antworten Top
#4
Hallo,

schreibe mal statt
Selection.ParagraphFormat.Alignment = wdAlignParagraphRight
mit entsprechendem Wert:
Selection.ParagraphFormat.Alignment = 2
siehe Objektkatalog in Word (Aufruf mit F2)

   

Gruß Uwe
Antworten Top
#5
Ha((o Uwe.

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

Grüße
Nyn007
Antworten Top
#6
(30.12.2018, 09:49)Nyn007 schrieb: Ha((o Uwe.

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

Grüße

Hast du es lösen können?
LG
Antworten Top


Gehe zu:


Benutzer, die gerade dieses Thema anschauen: 1 Gast/Gäste