En este artículo, nos complace mostrarle 2 métodos útiles para reemplazar el color de resaltado en su documento de Word.
A veces puede resaltar diferentes contenidos con diferentes colores. Pero a diferencia del color de fuente, no puede utilizar "Buscar y reemplazar" para buscar textos en un color de resaltado específico y reemplazarlo por otro.
Por lo tanto, necesitaremos algunas soluciones. A continuación se muestran 2 formas disponibles para diferentes casos.
Método 1: Reemplazar todos los colores resaltados por el mismo
El color de resaltado asociado al cuadro de diálogo "Buscar y reemplazar" es el actual seleccionado en el icono Resaltar.
- En primer lugar, en la pestaña "Inicio" y en el grupo "Fuente", haga clic en el botón desplegable en el comando "Color de resaltado del texto". Elija un color al que desee cambiar todos los colores de resaltado. Por ejemplo, aquí elegimos "Verde brillante".
- Luego presione "Ctrl + H" para activar el cuadro de diálogo "Buscar y reemplazar".
- Coloque el cursor dentro del cuadro de texto "Buscar qué".
- Haga clic en "Más" para que aparezcan más opciones y haga clic en "Formato".
- Y elija "Resaltar".
- A continuación, coloque el cursor dentro del cuadro "Reemplazar con" y repita los pasos 4 y 5.
- Por último, haga clic en "Reemplazar todo".
Ahora ha reemplazado todos los colores de resaltado con el verde brillante.
Método 2: reemplazar un color de resaltado específico por otro
Para realizar esta tarea, se requiere una macro.
- En primer lugar, pulse “Alt + F11” para abrir el editor de VBA.
- A continuación, haga clic en el proyecto "Normal" en la columna de la izquierda.
- Luego haga clic en la pestaña "Insertar" en la barra de menú.
- Y elija "Módulo" en ese menú desplegable.
- Abra el nuevo módulo haciendo doble clic.
- Ahora pega los siguientes códigos:
Sub ReplaceOneHighlightColorToAnother()
Dim strFindColor As String
Dim strReplaceColor As String
Dim objDoc As Document
Dim objRange As Range
Application.ScreenUpdating = False
Set objDoc = ActiveDocument
strFindColor = InputBox("Specify a color (enter the value):", "Specify Highlight Color")
strReplaceColor = InputBox("Specify a new color (enter the value):", "New Highlight Color")
With Selection
.HomeKey Unit:=wdStory
With Selection.Find
.Highlight = True
Do While .Execute
If Selection.Range.HighlightColorIndex = strFindColor Then
Set objRange = Selection.Range
objRange.HighlightColorIndex = strReplaceColor
Selection.Collapse wdCollapseEnd
End If
Loop
End With
End With
Application.ScreenUpdating = True
End Sub
- A continuación, haga clic en el botón "Ejecutar" o presione "F5".
- Luego, en el cuadro "Especificar color de resaltado", ingrese un valor que represente el color que se reemplazará. Para obtener el valor correspondiente de un color específico, puede visitar este enlace: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColorIndex
- Por ejemplo, si queremos reemplazar el color amarillo con verde brillante, ingresamos "7" en el cuadro "Especificar color de resaltado" y hacemos clic en "Aceptar".
- Luego, en el cuadro "Nuevo color de resaltado", ingrese un valor del nuevo color y haga clic en "Aceptar".
Aquí está el posible resultado de reemplazar el amarillo con verde brillante.
Evite el desastre de pérdida de datos
Word es una gran ayuda en nuestro trabajo diario. Por lo tanto, no es difícil imaginar la catástrofe que puede traer cuando colapsa. Para evitar la pérdida de datos críticos, puede hacerse con un Corrección de palabras herramienta por adelantado. Con una utilidad de este tipo a mano, no debería tener que preocuparse por la pérdida de datos.
Introducción del autor:
Vera Chen es experta en recuperación de datos en DataNumen, Inc., que es el líder mundial en tecnologías de recuperación de datos, incluyendo xlsx corrupto y pdf reparar productos de software. Para más información visite www.datanumen.com