zu Textmarke in Word springen
20.08.2014 16:00:21
Bernhard
ich möchte aus einem Marko in Excel eine Word Datei öffnen und in dieser zu einer Textmarke springen, um dann verschiedenen Texte einzufügen.
Es erscheint jedoch der Laufzeitfehler: 5102
Sie haben für eine Seite, Zeile, Fußnote, Endnote oder Anmerkung mehrere Bestimmungsorte angegeben.
Vielen Dank schon mal.
Sub zu_Textmarke_springen()
Dim appWord As Object
Dim docTest As Object
Set appWord = CreateObject("Word.Application")
Set docTest = appWord.Documents.Add("C:\Textdatei.docx")
appWord.Visible = True
With appWord
.Selection.Goto What:=wdGoToBookmark, Name:="myTextmarke" 'hier Laufzeitfehler: 5102
End With
'Hier wird dann das Einfügen verschiedener Texte vorgenommen
appWord.Activate
Set appWord = Nothing
Set docTest = Nothing
End Sub