Excel Tabelle an bestimmte Position in Word-Dokument kopieren
Alex Jäger
welche Möglichkeit besteht, eine Excel-Tabelle per VBA an eine
bestimmte Position eines schon bestehenden Word-Dokuments zu kopieren?
Wie muss das Word-Dokument vorbereitet werden, damit das Script die
Position auch findet?
stefan onken
hallo Alex,
es gibt da einige Möglichkeiten.
Zum kopieren der Daten:
copy/paste bzw PasteExcelTable (falls die Tabelle verknüpft sein soll)
Codebsp:
Set wdapp = CreateObject("Word.Application")
Set wddoc = wdapp.Documents.Open("d:\test\dok1.doc")
Range("A1:C3").Copy
wddoc.paragraphs(3).Range.Select
'wdapp.Selection.PasteExcelTable False, False, False
wdapp.Selection.Paste
wdapp.Visible = True
in Word eine Tabelle erstellen und die Daten Zelle für Zelle kopieren
(Codebsp http://www.herber.de/forum/archiv/264to268/t265271.htm)
Das navigieren kann da schon etwas schwieriger sein.
Im ersten Codebsp wird mit wddoc.paragraphs(3).Range.Select die dritte
Zeile im Word-Dokument markiert und dort eingefügt. Das geht aber nur,
wenn du weisst, in die wievielte Zeile die Tabelle soll. Falls nicht,
könntest du in Word eine Textmarke nutzen und diese in VBA über die
Bookmarks-Auflistung ansprechen oder ein spezifisches Wort einfügen,
nach dem du suchen kannst.
Du könntest auch ein dummy-Tabelle (zB mit nur 1 Zeile) im Word-
Dokument anlegen und diese dann erweitern (und dann Zelle für Zelle
kopieren). Word-Tabellen kann man ganz gut als Table per VBA
ansprechen.
Eine sehr gut Seite für Word ist http://mypage.bluewin.ch/reprobst/FrmSet.htm?Index
und es gibt auch eine Word-VBA NG.
Gruß
stefan
Alex Jäger
vielen Dank schon für die Erste Hilfe, werd ich heut abend testen
Gruß Alex