Aus Excel Textmarke in Word ausfüllen
08.05.2007 16:11:30
Musmus
Ich habe in Excel eine Datensammlung aus der ich mehrere Worddokumente füttern möchte. Dazu habe ich den verschiedenen Worddokus Textmarken eingefügt. Mein Makro funktioniert fast bzw. nur bis hierhin:
Sub test()
Dim datei As String
Dim dok As Object
Dim wd As Object
datei = "Pfad\Dateiname.dot"
Set wd = CreateObject("Word.Application")
wd.Visible = True
Set dok = wd.Documents.Add(datei)
--> In der folgenden Zeile erhalte ich jedoch eine Fehlermeldung:
dok.Bookmarks("NameTextmarke").Range.Text = Worksheets("NameTabInExcel").Range(" _
Zellbezeichnung").Value
End Sub
Kann mir bitte jemand helfen?
Vielen Dank!!
Anzeige