Propriété TextRange.Find (Publisher)

Renvoie un objet FindReplace de l’objet TextRange spécifié. L'objet FindReplace est utilisé pour effectuer une recherche de texte et remplacer dans la plage de texte spécifiée.

Syntaxe

expression. Trouver

Expression Variable qui représente un objet TextRange .

Exemple

L'exemple suivant définit une variable d'objet à l'objet FindReplace de la plage de texte de la première forme du document actif. Une opération de recherche est exécutée qui applique une mise en forme en gras à chaque occurrence du mot Urgent dans la plage de texte.

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

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.