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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de