HERBERS Excel-Forum - das Archiv
Thema: Text in Worddocument suchen | Herbers Excel-Forum
-
Text in Worddocument suchenThomas
Text in Worddocument suchen
Thomas
Hallo,
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
AW: Text in Worddocument suchen
Björn
Hallo Thomas,
ich weiß auch nicht wie das geht, aber das ist ein klassischer Fall für den Makrorekorder.
Versuch das einfach mal.
Wenn es dann nicht klappt, dann helfen wir gerne.
Gruß
Björn B.
AW: Text in Worddocument suchen
Thomas
Mit dem Rekorder funktioniert es nicht!
AW: Text in Worddocument suchen
xr8k2
Hallo Thomas,
vom Prinzip her so:
Sub WordFinder()
With GetObject(, "Word.Application").Activedocument.Range.Find
.Execute findtext:=Range("A1")
If .found Then MsgBox "Text gefunden!"
End With
End Sub
xr8k2
AW: Text in Worddocument suchen
Thomas
Hallo xr8k2
bei .Execute findtext:=Range("A1")
mekert er. "dieser Befehl ist nicht verfügbar.
Thomas
AW: Text in Worddocument suchen
Björn
Hallo,
also bei mir funktioniert der Code von xr8k2.
Du musst natürlich ein Word geöffnet haben, aber daran wird es ja wohl nicht liegen.
Keine Ahnung, vielleicht liegt es an Deiner Version. Ich habe Office 2003.
Gruß
Björn B.
AW: Text in Worddocument suchen
xr8k2
Hallo Thomas,
sorry, deine Version hab ich überlesen. Ich arbeite mit Office2003 und da funktionierts.
Das .Find Object mit .Execute gab´s aber auch schon in Office97 glaub ich.
Versuch zur Not evtl. mal so hier:
Sub WordFinder()
With GetObject(, "Word.Application").Activedocument.Range.Find
If .Execute(findtext:=Range("A1")) Then MsgBox "Text gefunden!"
End With
End Sub
Gruß,
xr8k2
Excel-Beispiele