Propriedade Find.Replacement (Word)

Retorna um objeto Replacement que contém o critério para uma operação de substituição.

Sintaxe

expression. Replacement

Expressão Uma expressão que retorna um objeto 'Find'.

Exemplo

Este exemplo remove formatação com negrito do documento ativo. A propriedade Bold do objeto Font é True para o objeto Find e False para o objeto 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

Este exemplo localiza todas as ocorrências da palavra "Start" no documento ativo e as substitui por "End". A operação de localização ignora formatação e coincide as maiúsculas e minúsculas do texto a ser localizado ("Start").

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

Confira também

Objeto Find

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.