En este artículo, nos centraremos en explicar 2 formas rápidas de cambiar por lotes el color de varios subrayados en su documento de Word.
De forma predeterminada, el color de subrayado en Word está configurado como "Automático". Pero a veces puede ser monótono. Entonces, tanto para diversificar el conjunto de colores en su documento como para resaltar los contenidos importantes, es una buena opción cambiar el color del subrayado.
Es fácil alterar el color de subrayado antes de crearlo. Por lo tanto, en los siguientes contenidos, nos gustaría hacer énfasis en modificar el color de los subrayados existentes.
Método 1: utilizar la función "Búsqueda avanzada"
En primer lugar, debe encontrar todas las instancias de subrayado en el documento actual. Para ello, puede consultar nuestro artículo anterior: 2 formas rápidas de buscar textos subrayados en su documento de Word
Después de encontrar y tener todos los subrayados en la selección, siga los siguientes pasos:
- Simplemente haga clic en el botón del triángulo invertido detrás del icono subrayado en la pestaña "Inicio".
- Luego elija un color que le guste en el menú extendido de "Color de subrayado".
Aquí está nuestra demostración en video:
Método 2: ejecutar macro de Word
Word macro es una herramienta increíble. No solo podemos usarlo para buscar todos los subrayados, sino también cambiar el color de los mismos. Y ambos procedimientos se pueden finalizar en una sola macro.
- Para empezar, active la pestaña "Desarrollador" y haga clic en ella.
- Luego haga clic en "Visual Basic" en el grupo "Código".
- A continuación, haga clic en "Normal".
- Luego haga clic en la pestaña "Insertar".
- Y seleccione "Módulo" en el menú.
- Haga doble clic en el nuevo módulo para abrir el espacio de edición.
- Ahora pegue los siguientes códigos allí:
Sub ChangeUnderlineColor()
Dim objDoc As Document
Dim objRange As Range
Set objDoc = ActiveDocument
Set objRange = objDoc.Range
objRange.Find.ClearFormatting
With objRange.Find
.Font.Underline = wdUnderlineSingle
.text = ""
.Replacement.text = ""
.Replacement.Font.UnderlineColor = wdColorBlue
.Execute Format:=True, Replace:=wdReplaceAll
End With
End Sub
- Por último, pero no menos importante, haga clic en el botón "Ejecutar".
Notas:
- En primer lugar, la línea de código ".Font.Underline = wdUnderlineSingle" significa que esta macro encuentra solo los subrayados individuales. Puede cambiar "wdUnderlineSingle" a "wdUnderlineDouble", "wdUnderlineThick", etc. Para obtener más constantes de subrayado, puede visitar este enlace: https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2003/aa224269(v=office.11)
- En segundo lugar, la línea de código ".Replacement.Font.UnderlineColor = wdColorBlue" significa que la macro cambiará el color del subrayado a azul. Y para más constantes de color, puedes visitar: https://docs.microsoft.com/en-us/office/vba/api/Word.WdColor
Recuperar datos de Word comprometidos
Hoy en día, la pérdida de datos en Word es muy probable. Por ejemplo, el error más común que encontrará en Word es que la pantalla se congele. Ciertamente, puede optar por reiniciar el programa. A veces, habrá una versión guardada automáticamente del documento en el que está trabajando. Sin embargo, no podemos descartar ni asumir la posibilidad de perder el documento, ya sea total o parcialmente. Por lo tanto, debemos pensar en formas de recuperar los datos. Y hablando de eso, un profesional Reparación de palabras herramienta es la clave de su éxito.
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, incluida la herramienta para reparar xls dañados y pdf reparar productos de software. Para más información visite www.datanumen.com