Erstellung von Textmarker
01.10.2018 12:24:58
Textmarker
es geht um Folgendes, ich möchte via Textmarkern mein Word Dokument befüllen.
Was auch relativ gut klappt, für ein Arbeitsblatt. Ich habe aber mehrere Arbeitsblätter und ich weiß nicht wie ich die Aktivieren soll. :(
anbei mein kleiner Code :)
Es ist das erste mal das ich programmiere, habt Nachsicht :)
Liebe Grüße
Molle
Sub Word()
On Error Resume Next
MsgBox "WORD wird geöffnet"
Dim WordApp As New Word.Application
With WordApp
.Visible = True: .WindowState = xlMaximized
.Documents.Open Filename:=""
.ActiveDocument.Bookmarks("Land").Range.Text = Range("B1")
.ActiveDocument.Bookmarks("Beschreibung").Range.Text = Range("B2")
End With
End Sub