ich übergebe einige Werte an Word, an entsprechende Textmarkten (Name1 und Name2 s. Bsp.Script).
Des Weiteren möchte ich noch die Kopfzeile in Word mit Name3 (s. Bsp.) übergeben. Hier stoße ich auf Probleme.
Kann mir jemand sagen was ich hier falsch mache?
Der Name1 und Name 2 wird ordnungsgemäß übergeben.
Für Tipps wäre ich dankbar.
Script:
Sub OK_Klick()
Dim WordObj As Object
Set EMappe = Application.Workbooks("Exceldatei.xls")
Set BDialog = BMappe.DialogSheets("Dialog_1")
Set WordObj = CreateObject("word.application")
Name1 = ActiveDialog.EditBoxes("Name1").Text
Name2 = ActiveDialog.EditBoxes("Name2").Text
Name3 = ActiveDialog.EditBoxes("Name3").Text
WordObj.Visible = True
WordObj.Activate
With WordObj
.WindowState = wdWindowStateMaximize
.Documents.Open Filename:="D:\Ordner\Worddatei.doc"
.ActiveDocument.bookmarks("Name1").Range = Name1
.ActiveDocument.bookmarks("Name2").Range = Name2
.ActiveDocument.Headers(wdHeaderFooterPrimary).Range.Text = Name3 'das klappt nicht
End With
WordObj.Quit
Set WordObj = Nothing
End Sub
Gruß Holger