|
Hallo an alle,
ich möchte mit VBA ein längeres Word Dokument nach bestimmten Wörtern durchsuchen, ob diese vorhanden sind und diese, wenn gefunden, markieren damit man sieht, dass es da ist.
Mein Testdokument hat nur fünf Zeilen:
Wort1
Wort2
Wort3
Wort1
Wort1
Suche ich drei mal das selbe Wort funktioniert mein Code tadellos (Programmiermodus im Word Dokument mit Alt+F11 zugeschaltet).
Es wird jeweils Wort1 gefunden, markiert und mit bestätigen der MessageBox das nächste Wort1 markiert.
Sub Start()
Selection.HomeKey wdStory 'Cursor am Dokumentenanfang platzieren
Selection.Find.Execute FindText:="Wort1"
MsgBox "weiter"
Selection.Find.Execute FindText:="Wort1"
MsgBox "weiter"
Selection.Find.Execute FindText:="Wort1"
MsgBox "weiter"
End Sub
Jetzt möchte ich aber der Reihe nach Wort1, Wort2, Wort3 finden.
Dann wird leider nur das erste Wort1 gefunden und markiert. Nach jeder MessageBox passiert nichts mehr.
Sub Start()
Selection.HomeKey wdStory 'Cursor am Dokumentenanfang platzieren
Selection.Find.Execute FindText:="Wort1"
MsgBox "weiter"
Selection.Find.Execute FindText:="Wort2"
MsgBox "weiter"
Selection.Find.Execute FindText:="Wort3"
MsgBox "weiter"
End Sub
Ich versteh leider nicht, wo mein Fehler liegt. Ich bin noch Anfänger in VBA :-)
Vielen Dank im Voraus
Conrad
|