Text mit Format nach Word
Roger
mit folgenden Zeilen übertrage ich Zellinhalte von Excel nach Word:
Sub NachWord()
Dim appWord As Object
Dim docTest As Object
Dim Marke As String
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.documents.Add(C:\Dokument.doc)
appWord.Visible = True
docTest.Activate
docTest.Bookmarks(Marke).Range.Text = Range("B2") & Chr(13) & Range("E2") & Chr(13) & Range( _
"D2")
Set docTest = Nothing
Set appWord = Nothing
End Sub
Da es sich um einige hundert Einträge handelt, ist das manuelle Formatieren in Word etwas mühselig.
Gruß
Rüdiger
Anzeige