Document.Find-Eigenschaft (Publisher)

Gibt ein FindReplace-Objekt aus dem angegebenen Document-Objekt zurück. Das FindReplace-Objekt wird zum Suchen und Ersetzen von Text im angegebenen Dokument verwendet.

Syntax

Ausdruck. Finden

Ausdruck Eine Variable, die ein Document-Objekt darstellt.

Beispiel

Gilt für das Document-Objekt . Das folgende Beispiel legt eine Objektvariable auf das FindReplace -Objekt des aktiven Dokuments fest. Es wird ein Suchvorgang ausgeführt, der auf jedes Vorkommen des Worts Wichtig fett formatiert wird.

Dim objFind as FindReplace 
Dim fFound as Boolean 
 
Set objFind = ActiveDocument.Find 
fFound = True 
 
With objFind 
 .Clear 
 .FindText = "Important" 
 Do While fFound = True 
 fFound = .Execute 
 If Not .FoundTextRange Is Nothing Then 
 .FoundTextRange.Font.Bold = True 
 End If 
 Loop 
End With 

Gilt für das TextRange-Objekt . 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.