ich suche nach einer Möglichkeit eine Textstelle in einem geöffneten Worddocument aus Excel heraus zu suchen. Der gesuchte Text steht beisp. weise in Zelle A1 und soll in dem Worddocument gefunden werden.
Danke für Euere Hilfe
Sub WordFinder()
With GetObject(, "Word.Application").Activedocument.Range.Find
.Execute findtext:=Range("A1")
If .found Then MsgBox "Text gefunden!"
End With
End Sub
Gruß,Sub WordFinder()
With GetObject(, "Word.Application").Activedocument.Range.Find
If .Execute(findtext:=Range("A1")) Then MsgBox "Text gefunden!"
End With
End Sub
Wenn´s nicht funzt, musst du halt mal in die VBA-Hilfe von WORD nach der korrekten Syntax untersuchen. Ich kanns leider nicht testen.Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden
Suche nach den besten AntwortenEntdecke unsere meistgeklickten Beiträge in der Google Suche
Top 100 Threads jetzt ansehen