Como substituir o formato sublinhado por itálico no Word?

Em algumas situações, poderá precisar de substituir todos os caracteres sublinhados por itálico — ou vice-versa — no Word. Como substituir rapidamente todos os caracteres sublinhados por itálico no Word? Pode concluir esta tarefa utilizando as duas formas engenhosas seguintes no Word.

Substitua todos os caracteres sublinhados por itálico com Localizar e Substituir

Substitua todos os caracteres sublinhados por itálico com VBA

---

Substitua todos os caracteres sublinhados por itálico com Localizar e Substituir

Passo 1: Clique em Base>Substituirou utilize os atalhos Ctrl + Hpara abrir a caixa de diálogo Localizar e Substituir;

Passo 2: Clique no botão Mais para exibir a opção Pesquisa.

Passo 3: Coloque o cursor na caixa Localizar, clique em Tipo de letra no menu suspenso Formato e selecione o estilo Sublinhado e a cor do Sublinhado.

Passo 4: Coloque o cursor na caixa Substituir por, clique em Tipo de letra no menu suspenso Formato e selecione Itálico na lista Estilo da Fonte.

    

Passo 5: Clique em OK > Substituir tudo.

Nota:

1. Clique em Sem formatação para garantir que não está especificada qualquer informação de formatação nas caixas Localizar e Substituir por antes de iniciar a operação.

2. Este processo aplica apenas itálico ao texto sublinhado, sem remover o sublinhado.

---

Substitua todos os caracteres sublinhados por itálico com VBA

Alternativamente, pode também usar VBA para substituir o sublinhado por itálico. Contudo, se não estiver familiarizado com macros, não recomendamos este método. Proceda da seguinte forma:

Passo 1: Prima Alt+F11para abrir a janela VBA no Word;

Passo 2: Clique em Módulono separador Inserire insira o código VBA na janela do Módulo;

O código VBA para substituir todos os caracteres sublinhados por itálico no 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

Passo 3: Clique no botão Executarpara aplicar o código VBA (ou prima)F5).

Nota:

1. Este código aplica-se apenas a sublinhado simples sem cor. Pode alterar “wdUnderlineSingle” no código para adaptá-lo a outros estilos de sublinhado, como “wdUnderlineDouble” ou “wdUnderlineThick”.

2. Este código aplica apenas itálico ao texto sublinhado, sem remover o sublinhado.

---