Excel-Tabelle nach Word
09.10.2007 15:12:00
smi
mit folgendem Code möchte ich eine Excel-Tabelle in ein Word-Dokument kopieren.
Sub ExportTabelle()
Set wdapp = CreateObject("Word.Application")
Set wddoc = wdapp.Documents.Open("d:\rest\dok1.doc")
Range("A1").Select
Selection.CurrentRegion.Select
Selection.Copy
wdapp.Visible = True
wddoc.paragraphs(1).Range.Select
wdapp.Selection.PasteExcelTable False, False, False
End Sub
Die Excel-Tabelle wird jetzt aber in eine Word-Tabelle umgewandelt. Was muss ich für "wdapp.Selection.PasteExcelTable False, False, False" eingeben, damit mir die Excel-Tabelle als Grafik in Word eingefügt wird?
Vielen Dank für Euere Hilfe.
Gruß smi