Partager via

Propriété Document.Find (Publisher)

  • Article

Renvoie un objet FindReplace à partir de l’objet Document spécifié. L’objet FindReplace permet de rechercher et de remplacer du texte dans le document spécifié.

Syntaxe

expression. Trouver

Expression Variable qui représente un objet Document .

Exemple

S’applique à l’objet Document . L'exemple suivant définit une variable d'objet à l'objet FindReplace du document actif. Une opération de recherche est exécutée qui applique une mise en forme en gras à chaque occurrence du mot Important.

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

S’applique à l’objet TextRange . 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.