¿Cómo sustituir el formato subrayado por cursiva en Word?

En ciertas situaciones, es posible que necesite reemplazar todos los caracteres subrayados por cursiva o viceversa en Word. ¿Cómo puede hacerlo rápidamente? Puede lograrlo con estos dos métodos ingeniosos en Word.

Reemplace todos los caracteres subrayados por cursiva con Buscar y reemplazar

Reemplace todos los caracteres subrayados por cursiva con VBA

---

Reemplace todos los caracteres subrayados por cursiva con Buscar y reemplazar

Paso 1: haga clic en Inicio>Reemplazaro utilice el atajo Ctrl + Hpara abrir el cuadro de diálogo Buscar y reemplazar;

Paso 2: haga clic en el botón Más para mostrar la opción Buscar.

Paso 3: coloque el cursor en el cuadro Buscar qué, haga clic en Fuente en la lista desplegable Formato y seleccione el estilo Subrayado y el color Subrayado.

Paso 4: coloque el cursor en el cuadro Reemplazar con, haga clic en Fuente en la lista desplegable Formato y seleccione Cursiva en la lista Estilo de fuente.

    

Paso 5: haga clic en Aceptar > Reemplazar todo.

Nota:

1. Haga clic en Borrar formato para asegurarse de que no haya información de formato especificada en los cuadros Buscar qué y Reemplazar con antes de realizar la operación.

2. Este proceso aplica cursiva únicamente al texto subrayado, sin eliminar el subrayado.

---

Reemplace todos los caracteres subrayados por cursiva con VBA

Como alternativa, también puede utilizar VBA para reemplazar el subrayado por cursiva. Sin embargo, si no domina las macros, no recomiendo este método. Proceda como se indica a continuación:

Paso 1: pulse Alt+F11para abrir la ventana de VBA en Word;

Paso 2: haga clic en Móduloen la pestaña Insertare inserte el código VBA en la ventana Módulo;

Código VBA para reemplazar todos los caracteres subrayados por cursiva en Word:

Sub ReplaceUnderlineWithItalic()
'Update 20131107
Selection.Find.ClearFormatting
Selection.Find.Font.Underline = wdUnderlineSingle
Selection.Find.Replacement.ClearFormatting
Selection.Find.Replacement.Font.Italic = True
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Replacement.Font.Underline = wdUnderlineNone
.Forward = True
.Wrap = wdFindAsk
.Format = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

Paso 3: haga clic en el botón Ejecutarpara aplicar el código VBA (o pulse)F5).

Nota:

1. Este código solo es válido para subrayado simple sin color. Puede cambiar “wdUnderlineSingle” en el código para adaptarlo a otros estilos de subrayado, como “wdUnderlineDouble” o “wdUnderlineThick”.

2. Este código solo aplica cursiva al texto subrayado, pero no elimina el subrayado.

---