Propiedad Find.Replacement (Word)

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

Sintaxis

expresión. Replacement

Expresión 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

Consulte 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.