Textmarke in Word aus Excel anspringen
14.03.2004 18:25:54
Fritz Sanne
Trotz Suche in meinen Büchern und im Archiv kriege ich es nicht gebacken (dabei habe ich es schon mal vor drei Jahren oder so geschafft), aus Excel heraus eine Textmarke in einer Word-Vorlage anzuspringen.
Seht Euch doch bitte mal an, was mir da fehlt.
Ich danke schon mal.
Sub ZellenInBericht()
Dim wd As Object
Dim wdbericht As Object
Set wd = CreateObject("word.application")
Set wdbericht = wd.documents.Open _
("c:\Windows\Desktop\bericht.dot")
wd.Visible = True
Sheets("Daten").Activate
wordDoc.bookmarks("Geschlecht").Range = _
ActiveCell.Offset(0, 23).Value
'''''''Fehler 424: Object erforderlich
'Selection.Goto what:=wdgotobookmark, Name:="Geschlecht"
'Fehler
End Sub
Fritz