Hallo allerseits,
ich versuche gerade, eine Auflistung in Word (Listparagraphs) in ein Excel-Dokument zu kopieren. Klappt aber nicht, da er mit dem Begriff "Cells" nichts anfangen kann. Wie lässt sich das lösen?
Hier der Code:
Sub Liste()
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
appExcel.Workbooks.Add
For Each par In ActiveDocument.ListParagraphs
par.Range.Copy
appExcel.Visible = True
appExcel.Cells(3,1).Paste
Documents("Test.doc").Activate
Next par
End Sub
Schonmal vielen Dank für die Hilfe!
Viele Grüße
Y
|