Clase Replacement (Word VBA)

La clase Replacement representa los criterios de reemplazo para una operación de búsqueda y reemplazo.

Para usar una variable de clase Replacement, primero debe ser instanciado, por ejemplo

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

Las variables de tipo Replacement se pueden establecer utilizando el procedimiento Find.Replacement

ClearFormatting

Quita el formato de texto y de párrafo del texto especificado en una operación de reemplazo.

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

Devuelve o establece un objeto Font que representa el formato de carácter del objeto especificado.

Para establecer esta propiedad, especifique una expresión que devuelva un objeto Font .

Selection.Find.Replacement.Font =

Frame

Devuelve un objeto Frame que representa el formato del marco para el estilo especificado u operación de búsqueda y sustitución.

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

Highlight

True si el formato de resaltado se aplica al texto de sustitución.

Puede devolver o establecerse en true, falseo 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

Devuelve o establece una constante WdLanguageID que representa el idioma del intervalo especificado. Aquí puede ver valores posibles para WdLanguageID.

Es podrán que algunas de las constantes WdLanguageID no estén disponibles, según la compatibilidad con el idioma que haya seleccionado o instalado (por ejemplo, inglés, Estados Unidos).

Selection.Find.Replacement.LanguageID = wdAfrikaans

LanguageIDFarEast

Devuelve o establece un idioma del Este Asiático para el reemplazo especificado. Aquí puede ver valores posibles para WdLanguageID.

Esta es la manera recomendada de devolver o establecer el idioma del Este Asiático del texto de un documento creado en una versión de Microsoft Word para el Este Asiático.

Selection.LanguageIDFarEast = wdKorean

NoProofing

True si Microsoft Word reemplaza el texto que el corrector ortográfico y gramatical omite.

Selection.Find.Replacement.NoProofing =

ParagraphFormat

Devuelve o establece un objeto ParagraphFormat que representa la configuración de párrafo para la operación de sustitución especificada.

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

Style

Devuelve o establece el estilo para el objeto especificado.

Cuando se devuelve el estilo de un intervalo que incluye varios estilos, sólo se devolverá el estilo del primer carácter o párrafo.

Selection.Find.Replacement.Style =

Text

Devuelve o establece el texto que se va a reemplazar.

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