von Excel nach Word
Excel
im Grunde habe ich meine Antwort schon gefunden, aber eine Kleinigkeit fehlt mir noch. Wie kann ich nicht nur den Inhalt der Zelle A1 einfügen, sondern den Text mehrerer Zellen untereinander?
Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Test.dot")
appWord.Visible = True
docTest.Activate
docTest.Bookmarks("ExcelWert1").Range.Text = Range("A1:A4")
Kann mir jemand helfen?Gruß
Rüdiger