Thema Datum  Von Nutzer Rating
Antwort
Rot Word Dokument durchsuchen, ob Wörter vorhanden sind
10.03.2019 14:53:25 Conrad
Solved
11.03.2019 19:15:30 Mackie
*****
Solved
11.03.2019 20:02:24 Gast97454
Solved

Ansicht des Beitrags:
Von:
Conrad
Datum:
10.03.2019 14:53:25
Views:
92
Rating: Antwort:
 Nein
Thema:
Word Dokument durchsuchen, ob Wörter vorhanden sind

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst genau und ausführlich
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
  • Bitte markieren Sie Ihre Anfrage als erledigt wenn Ihnen geholfen wurde
Thema: Name: Email:

 
 

Thema Datum  Von Nutzer Rating
Antwort
Rot Word Dokument durchsuchen, ob Wörter vorhanden sind
10.03.2019 14:53:25 Conrad
Solved
11.03.2019 19:15:30 Mackie
*****
Solved
11.03.2019 20:02:24 Gast97454
Solved