Propiedad Find.Replacement (Word)

Devuelve un objeto Replacement que contiene los criterios para una operación de reemplazo.

Sintaxis

expresión. Replacement

expresión Una expresión que devuelve un objeto "Find".

Ejemplo

En este ejemplo se quita el formato de negrita del documento activo. La propiedad Bold del objeto Font es True para el objeto Find y False para el 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

En este ejemplo, se buscan todas las instancias de la palabra "Start" del documento activo y se reemplazan por "End". Esta operación de búsqueda omite el formato y distingue las mayúsculas de las minúsculas del texto que va a buscarse ("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

Vea también

Objeto Find

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.