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
Ich möchte den Inhalt von B2 in Word gerne "fett" und den von D2 "kursiv und rechtsbündig" formatieren. Kann ich dem o.a. Code diese Formatierung gleich "mitgeben"?Da es sich um einige hundert Einträge handelt, ist das manuelle Formatieren in Word etwas mühselig.
Gruß
Rüdiger