Objekt suchen (Word)
Stellt die Kriterien für einen Suchvorgang dar.
Die Eigenschaften und Methoden des Find-Objekts entsprechen den Optionen im Dialogfeld Suchen und Ersetzen.
Mit der Find-Eigenschaft geben Sie das Find-Objekt zurück. Das folgende Beispiel sucht und markiert das nächste Auftreten des Worts "hi".
With Selection.Find
.ClearFormatting
.Text = "hi"
.Execute Forward:=True
End With
Das folgende Beispiel sucht das Auftreten des Worts "hi" im aktiven Dokument und ersetzt dieses Wort durch "hello".
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="hi", ReplaceWith:="hello", _
Replace:=wdReplaceAll
Wenn Sie über das Selection-Objekt zum Find-Objekt gelangt sind, wird die Auswahl geändert, wenn der Text gefunden wird, der mit den Suchkriterien übereinstimmt. Das folgende Beispiel markiert das nächste Auftreten des Worts "blue".
Selection.Find.Execute FindText:="blue", Forward:=True
Wenn Sie über das Range-Objekt zum FindObjekt gelangt sind, wird die Auswahl nicht geändert, wenn der Text gefunden wird, der mit den Suchkriterien übereinstimmt, aber das Range-Objekt wird neu definiert. Das folgende Beispiel sucht das nächste Auftreten des Worts "blue" im aktiven Dokument. Wenn "blue" im Dokument gefunden wird, wird myRange neu definiert und "blue" wird fett formatiert.
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="blue", Forward:=True
If myRange.Find.Found = True Then myRange.Bold = True
Referenz zum Word-Objektmodell
Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.