Office: (Office 365) Wie Spalten per VBA mit definierten Spaltenbreiten einfügen ?

Guten Abend zusammen,

wie kann man die gewählten Spalten per VBA mit definierten Spaltenbreiten in Word einfügen ?

Danke für Deine Antwort im Voraus
Jens

Sub EtW() ' Excel zu Word kopieren
Dim Vorlage As Object
Dim appWord As Object
Dim strPfad As String

strPfad = ActiveWorkbook.Path

Set appWord = CreateObject("Word.Application")
Set Vorlage = appWord.Documents.Open(strPfad & "\Vorlage1.docx")

appWord.Visible = True

Vorlage.Activate

Sheets("Vorlagen").Range("A" & 22 & ":F" & Sheets("Vorlagen").Cells(1000, 1).End(xlUp).Row).Copy

Angebotvorlage.Bookmarks("NEU").Range.Paste
Angebotvorlage.Bookmarks("Adresse").Range.text = Range("Adresse")

appWord.Activate

Set appWord = Nothing
Set Angebotvorlage = Nothing

End Sub

 

Moin Jens,

WD ist ein wenig zickig, wenn man den Makrorecorder nutzen will. Für Deine Tabelle schmeiß ihn trotzdem mal an und zeichne auf:
Füge eine neue Tabelle ein, markiere eine erste Zelle, geh' dann im Tabellenlayout auf die Eigenschaften und setze die Spaltenbreiten wie gewünscht. Recorder wieder aus.

Der so geschürfte Code ist vielleicht wenigstens ein Ausgangspunkt für weitere erfolgreiche Tests.

Schöne Grüße

 

Danke für Deinen Vorschlag.

Aber was genau meinst Du mit "im Tabellenlayout auf die Eigenschaften" ?
Meinst Du die Spaltenköpfe ?

 

Hallo,

um die Sache zu vereinfachen:
Du kopierst ja einen Bereich eines Tabellenblattes nach Word (das macht dein hier gezeigter Codeausschnitt).
Damit hast du auf Word ab dem Bookmark eine Tabelle.
Die Spaltenbreite kannst du mittels

Code:

.Tables(1).Columns(1).SetWidth ColumnWidth:=55

also ähnlich wie in Excel beispielhaft hier die auf 55 ändern.

Das setzt voraus, dass dieser Vorgang an der aktivierten Tabelle ausgeführt wird. Sicher geht man, wenn die Tabelle
in einer Objektvariable behandelt wird, muss aber nicht zwingend sein, wenn nach dem Einfügen die Tabelle noch aktiv (selektiert) ist.

Einfacher ist es die Tabelle in Excel auf das gewünschte Format in Word passend zu machen. Dann reicht es diese zu kopieren.

Sollte dies nicht zum Ziel führen, lade in einer Zip beide Dateien mit dem was du hast anonymisiert mit ein paar Datensätzen hoch.

Gruß Uwe

 

Hallo Ihr beiden und danke noch mal für Eure Antworten.

Das wohl maßgebliche Problem mit der Darstellung der "Spaltenbreiten" in Word hab ich nun doch ausfindig machen können.
Und zwar werden 6 Spalten ais Excel kopiert, wobei Spalte A nur eine Breite von 4,29 hat. Aufgrund einer einzelnen Zeile in der die Spalte 2 bis Spalte 6 verbunden war, hat mir dies beim Einfügen in Word Probleme mit der Ansicht bereitet. Durch das Lösen der Spalte 2 bis Spalte 6 in der betreffenden Zeile, wird nun alles wieder normal und optisch ansprechend in Word eingefügt.

 

Auaha! die guten alten verbundenen ...
Was genau meinst Du mit ... Ich habe einfach die bekannten Menüs von Word gemeint ...
vg