Microsoft Excel

Herbers Excel/VBA-Archiv

Informationen und Beispiele zum Thema MsgBox
BildScreenshot zu MsgBox MsgBox-Seite mit Beispielarbeitsmappe aufrufen

Text in Worddocument suchen | Herbers Excel-Forum


Betrifft: Text in Worddocument suchen von: Thomas
Geschrieben am: 20.11.2009 10:47:49

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

  

Betrifft: AW: Text in Worddocument suchen von: Björn B.
Geschrieben am: 20.11.2009 11:38:54

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.


  

Betrifft: AW: Text in Worddocument suchen von: Thomas
Geschrieben am: 20.11.2009 11:55:12

Mit dem Rekorder funktioniert es nicht!


  

Betrifft: AW: Text in Worddocument suchen von: xr8k2
Geschrieben am: 20.11.2009 12:55:11

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


  

Betrifft: AW: Text in Worddocument suchen von: Thomas
Geschrieben am: 20.11.2009 17:13:24

Hallo xr8k2

bei .Execute findtext:=Range("A1")

mekert er. "dieser Befehl ist nicht verfügbar.

Thomas


  

Betrifft: AW: Text in Worddocument suchen von: Björn B.
Geschrieben am: 20.11.2009 22:52:04

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.


  

Betrifft: AW: Text in Worddocument suchen von: xr8k2
Geschrieben am: 23.11.2009 07:43:31

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


Beiträge aus den Excel-Beispielen zum Thema "Text in Worddocument suchen"