HERBERS Excel-Forum - das Archiv
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
Gruß,
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
Wenn´s nicht funzt, musst du halt mal in die VBA-Hilfe von WORD nach der korrekten Syntax untersuchen. Ich kanns leider nicht testen.
Gruß,
xr8k2