Freigeben über


TextRange.Find-Eigenschaft (Publisher)

Gibt ein FindReplace-Objekt aus dem angegebenen TextRange-Objekt zurück. Das FindReplace -Objekt wird verwendet, um Text suchen und Ersetzen Sie in den angegebenen Textbereich ein.

Syntax

Ausdruck. Finden

Ausdruck Eine Variable, die ein TextRange-Objekt darstellt.

Beispiel

Im folgende Beispiel wird eine Objektvariable für das FindReplace -Objekt des Textbereichs der ersten Form im aktiven Dokument. Es wird ein Suchvorgang ausgeführt, der fett formatiert auf jedes Vorkommen des Worts Urgent im Textbereich anwendet.

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Pages(1) _ 
 .Shapes(1).TextFrame.TextRange.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Urgent" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With

Support und Feedback

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.