Classe Replacement (Word VBA)

Cet objet représente les critères de remplacement pour une opération Rechercher et remplacer.

Pour utiliser une variable de classe Replacement, elle doit d'abord être instanciée, par exemple

Dim rpl as Replacement
Set rpl = Selection.Find.Replacement

Les variables du type Replacement peuvent être définies à l'aide de la procédure Find.Replacement

ClearFormatting

Supprime le texte et la mise en forme de paragraphes du texte spécifié dans une opération de remplacement.

Sub ClrFmtgReplace() 
 Dim rngTemp As Range 
 Set rngTemp = ActiveDocument.Content 
 With rngTemp.Find 
 .ClearFormatting 
 .Replacement.ClearFormatting 
 .MatchWholeWord = True 
 .Execute FindText:="Inc.", ReplaceWith:="incorporated", _ 
 Replace:=wdReplaceAll 
 End With 
End Sub

Font

Cette propriété renvoie ou définit un objet font qui représente la mise en forme de caractères de l’objet spécifié.

Pour définir cette propriété, spécifiez une expression qui renvoie un objet font .

Selection.Find.Replacement.Font =

Frame

Renvoie un objet Frame qui représente la mise en forme de cadre pour le style spécifié ou l’opération de recherche et de remplacement.

Dim frmFrame As Frame
Set frmFrame = Selection.Find.Replacement.Frame

Highlight

True si la mise en forme surlignée est appliquée au texte de remplacement.

Peut renvoyer ou avoir la valeur true, falseou wdUndefined.

Dim rngTemp As Range 
 
Set rngTemp = ActiveDocument.Range(Start:=0, End:=0) 
With rngTemp.Find 
 .ClearFormatting 
 .Highlight = True 
 With .Replacement 
 .ClearFormatting 
 .Highlight = False 
 End With 
 .Execute Replace:=wdReplaceAll, Forward:=True, FindText:="", _ 
 ReplaceWith:="", Format:=True 
End With

LanguageID

Cette propriété renvoie ou définit une constante WdLanguageID qui représente la langue de la plage spécifiée. Ici on trouve valeurs possible pour WdLanguageID.

Certaines des constantes WdLanguageID ne soient pas disponibles, en fonction de la prise en charge de langue (anglais (États-Unis), par exemple) que vous avez sélectionnée ou installée.

Selection.Find.Replacement.LanguageID = wdAfrikaans

LanguageIDFarEast

Renvoie ou définit une langue d'Asie orientale pour le remplacement spécifié. Ici on trouve valeurs possible pour WdLanguageID.

Cette méthode est recommandée pour renvoyer ou définir la langue d'un texte à caractères d'Asie orientale utilisée dans un document créé dans une version en langue d'Asie orientale de Microsoft Word.

Selection.LanguageIDFarEast = wdKorean

NoProofing

Ignore la valeur true si Microsoft Word remplace du texte que le vérificateur d'orthographe et la grammaire.

Selection.Find.Replacement.NoProofing =

ParagraphFormat

Cette propriété renvoie ou définit un objet ParagraphFormat qui représente les paramètres de paragraphe pour l’opération de remplacement spécifiée.

With ActiveDocument.Content.Find 
 .ClearFormatting 
 .ParagraphFormat.Space2 
 .Replacement.ClearFormatting 
 .Replacement.ParagraphFormat.Space15 
 .Execute FindText:="", ReplaceWith:="", _ 
 Replace:=wdReplaceAll 
End With

Style

Cette propriété renvoie ou définit le style de l'objet spécifié.

Si la plage concernée comporte plusieurs styles, seul le style du premier caractère ou du premier paragraphe est renvoyé.

Selection.Find.Replacement.Style =

Text

Cette propriété renvoie ou définit le texte à remplacer.

Set myRange = ActiveDocument.Content 
With myRange.Find 
 .ClearFormatting 
 .Replacement.ClearFormatting 
 .Text = "Hello" 
 .Replacement.Text = "Goodbye" 
 .Execute Replace:=wdReplaceAll 
End With