Hallo Experten,
(vorab ich nutze Word/Excel 2003 mit WinXP)
Problem:
Ein ehemaliger Kollege hat ein Word Formblatt entworfen mit einigen Tabellen.
Diese Tabellen mit Excel auszufüllen ist wesentlich einfacher. (DropDown, Formel, ect)
Ich würde gerne diese Word Dokumente in Excel einfügen.
Allerdings mit der gleichen Formatierung.
Wenn ich dies mit Copy & Paste mache geht die Aufteilung der Spalten verloren.
Als Objekt eingefügt wird nur das Word Dokument in Excel eingebettet und ich kann die Vorteile von Excel nicht nutzen.
Ein ehemaliger Kollege hat ein Word Formblatt entworfen mit
einigen Tabellen.
bau das doch mit Excel nach.
Ich würde gerne diese Word Dokumente in Excel einfügen.
Allerdings mit der gleichen Formatierung.
Wenn ich dies mit Copy & Paste mache geht die Aufteilung der
Spalten verloren.
Das Word-Dokument muß als aktives Dokument geöffnet sein damit Excel sich die Spaltenbreite holen kann.
Tables(1),
die 1 bezieht sich auf die 1te Tabelle im Word-Dokument, ggfs. anpassen.
For Spa = 1 To .Columns.Count
die 1 bezieht sich auf die 1te Spalte der Tabelle in Excel, ggfs anpassen.
in Modul1:
Sub tt()
Dim appWord, Spa As Long
Set appWord = GetObject(, "Word.Application")
With appWord.ActiveDocument.Tables(1)
For Spa = 1 To .Columns.Count
ActiveSheet.Cells(1, Spa).ColumnWidth = (.Columns(Spa).Width + 0.71) / 5.1425
Next Spa
End With
End Sub