VBA - Über Excel Text in MS Word suchen+anspringen
18.03.2019 11:30:00
Tobias
ich stehe aktuell vor dem Problem, dass ich über MS Excel ein Word Dokument öffnen möchte und in diesem ein bestimmtes Wort suchen möchte. Anschließend soll Word dauerhaft an dieser Stelle bleiben, so dass ein Benutzer direkt von diesem Wort das Dokument lesen könnte.
Mein Code sieht aktuell so aus
Sub Test()
' Test Makro
Dim AppWD As Object
Dim Name As String
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
Pfad = "C:\privat\beispiel.doc"
AppWD.documents.Open Pfad
AppWD.Selection.Find.ClearFormatting
With AppWD.Selection.Find
.text = "Test"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
AppWD.Selection.Find.Execute
AppWD.Selection.GoTo What:=wdGoToLine, Which:=wdGoToAbsolute, Count:=Zeile
'Selection.Expand wdLine
'Selection.Font.Bold = wdToggle
End Sub
Das öffnen des Dokumentes und finden des Wortes ist kein Problem, aber am Ende des Codes springt das Dokument wieder an den Anfang. Eine Lösung über Textmarken habe ich schon versucht, finde ich aber nicht sehr praktikabel. Gibt es hier andere Lösungen ein Wort zu suchen und an dieser Stelle zu bleiben?
Vielen Dank und Viele Grüße
Tobias