Classe Replacement (Word VBA)

A classe Replacement representa o critério de substituição para uma operação de localizar e substituir. As propriedades e métodos do objeto Replacement correspondem às opções da caixa de diálogo Localizar e substituir. Para usar uma variável de classe Replacement, ela primeiro precisa ser instanciada por exemplo

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

ClearFormatting

Remove a formatação de parágrafo e texto do texto especificado em uma operação de substituição.

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

Retorna ou define um objeto Font que representa a formatação de caractere do objeto especificado. Font de leitura/gravação.

Para definir essa propriedade, especifique uma expressão que retorne um objeto Font .

Selection.Find.Replacement.Font =

Frame

Retorna um objeto frame que representa a formatação de quadro para o estilo especificado ou para a operação de localizar e substituir. Somente leitura.

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

Highlight

True se a formatação de realce aplicada ao texto de substituição. Long de leitura/gravação.

Pode retornar ou ser definido como 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

Retorna ou define uma constante WdLanguageID que representa o idioma do intervalo especificado. Leitura/gravação. Aqui você pode encontrar os valores possíveis para WdLanguageID.

Algumas das constantes WdLanguageID podem não estar disponíveis para você, dependendo do suporte a idioma (inglês americano, por exemplo) que você selecionou ou instalou.

Selection.Find.Replacement.LanguageID = wdAfrikaans

LanguageIDFarEast

Retorna ou define um idioma do leste asiático para a substituição especificada. WdLanguageID de leitura/gravação. Aqui você pode encontrar os valores possíveis para WdLanguageID.

Essa é a maneira recomendada de retornar ou definir o idioma do texto do Leste Asiático em um documento criado em uma versão do Microsoft Word para Leste Asiático.

Selection.LanguageIDFarEast = wdKorean

NoProofing

True se o Microsoft Word substitui o texto que a ortografia e gramática checker ignora. Long de leitura/gravação.

Selection.Find.Replacement.NoProofing =

ParagraphFormat

Retorna ou define um objeto ParagraphFormat que representa as configurações de parágrafo para a operação de substituição especificada. Leitura/gravação.

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

Style

Retorna ou define o estilo do objeto especificado. Para definir essa propriedade, especifique o nome local do estilo, um inteiro, uma constante WdBuiltinStyle ou um objeto que represente o estilo. de leitura/gravação.

Quando você retorna o estilo de um intervalo que inclui mais de um estilo, apenas o primeiro estilo de caractere ou de parágrafo é retornado.

Selection.Find.Replacement.Style =

Text

Retorna ou define o texto que substituirá. String de leitura/gravação.

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