Propriété Find.Replacement (Word)

Renvoie un objet Replacement qui contient les critères spécifiés pour une opération de remplacement.

Syntaxe

expression. Replacement

expression Une expression qui renvoie un objet « Find ».

Exemple

Cet exemple supprime la mise en forme gras du document actif. La propriété Bold de l'objet Font est True pour l'objet Find et False pour l'objet Replacement.

With ActiveDocument.Content.Find 
 .ClearFormatting 
 .Font.Bold = True 
 With .Replacement 
 .ClearFormatting 
 .Font.Bold = False 
 End With 
 .Execute FindText:="", ReplaceWith:="", Format:=True, _ 
 Replace:=wdReplaceAll 
End With

Cet exemple montre comment rechercher dans le document actif chacune des occurrences du mot « Start » et le remplacer par « End ». La recherche ne tient pas compte de la mise en forme, mais tient compte de la casse du texte à remplacer.

Set myRange = ActiveDocument.Range(Start:=0, End:=0) 
With myRange.Find 
 .ClearFormatting 
 .Text = "Start" 
 With .Replacement 
 .ClearFormatting 
 .Text = "End" 
 End With 
 .Execute Replace:=wdReplaceAll, _ 
 Format:=True, MatchCase:=True, _ 
 MatchWholeWord:=True 
End With

Voir aussi

Objet Find

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.