Objet FindReplace (Publisher)

  • Article

Représente les critères de recherche. Les propriétés et les méthodes de l'objet FindReplace correspondent aux options dans la boîte de dialogue Rechercher et remplacer.

Remarques

Lorsque la propriété ReplaceScope est définie sur l’une des constantes PbReplaceScopeScopeOne ou pbReplaceScopeAll, la propriété ReplaceWithText doit être définie pour éviter que le texte ne soit remplacé par la valeur par défaut d’une chaîne vide pour cette propriété.

Utilisez la propriété TextRange.Find pour renvoyer un objet FindReplace .

Définissez la propriété ReplaceScope pour déterminer l'étendue de la recherche.

Exemple

L’exemple suivant sélectionne l’occurrence suivante de la fabrique de mots.

With ActiveDocument.Find 
 .Clear 
 .FindText = "factory" 
 .Execute 
End With

L’exemple suivant remplace la première occurrence du nom Visual Basic Scripting Edition par VBScript.

With ActiveDocument.Find 
 .Clear 
 .FindText = "Visual Basic Scripting Edition" 
 .ReplaceWithText = "VBScript" 
 .ReplaceScope = pbReplaceScopeOne 
 .Execute 
End With

L'exemple suivant montre comment accéder aux attributs de police de FoundTextRange lorsque ReplaceScope a pour valeur pbReplaceScopeNone.

Dim objFindReplace As FindReplace 
 
Set objFindReplace = ActiveDocument.Find 
With objFindReplace 
 .Clear 
 .FindText = "important" 
 .ReplaceScope = pbReplaceScopeNone 
 Do While .Execute = True 
 If .FoundTextRange.Font.Italic = msoFalse Then 
 .FoundTextRange.Font.Italic = msoTrue 
 End If 
 Loop 
End With

Méthodes

Propriétés

Voir aussi

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.