Come sostituire il testo formattato con sottolineatura con il corsivo in Word?

In alcune situazioni potrebbe essere necessario sostituire tutti i caratteri sottolineati con il corsivo, o viceversa, in Word. Come si può effettuare rapidamente questa sostituzione? È possibile farlo utilizzando i due metodi avanzati descritti di seguito.

Sostituisci tutti i caratteri sottolineati con il corsivo con Trova e sostituisci

Sostituisci tutti i caratteri sottolineati con il corsivo con VBA

---

Sostituisci tutti i caratteri sottolineati con il corsivo con Trova e sostituisci

Passo 1: fare clic su Home>Sostituiscioppure usare la scorciatoia Ctrl + Hper aprire la finestra di dialogo Trova e sostituisci;

Passo 2: fare clic sul pulsante Altro per visualizzare l’opzione Cerca.

Passo 3: posiziona il cursore nella casella Trova, fai clic su Carattere nell’elenco a discesa Formato e seleziona lo stile Sottolineato e il colore della sottolineatura.

Passo 4: posiziona il cursore nella casella Sostituisci con, fai clic su Carattere nel menu a discesa Formato e seleziona Corsivo dall’elenco Stile carattere.

    

Passo 5: fare clic su OK > Sostituisci tutto.

Nota:

1. Fare clic su Nessuna formattazione per assicurarsi che nessuna informazione di formattazione sia specificata nelle caselle Trova e Sostituisci con prima di procedere.

2. Questa procedura applica il corsivo esclusivamente al testo sottolineato, senza tuttavia rimuoverne la sottolineatura.

---

Sostituisci tutti i caratteri sottolineati con il corsivo con VBA

In alternativa, è possibile utilizzare anche VBA per sostituire la sottolineatura con il corsivo. Tuttavia, se non si ha dimestichezza con le macro, questo metodo non è consigliato. Procedere come segue:

Passo 1: premere Alt+F11per aprire la finestra VBA in Word;

Passo 2: fare clic su Modulonella scheda Inseriscie inserire il codice VBA nella finestra del Modulo;

Il codice VBA per sostituire tutti i caratteri sottolineati con il corsivo in 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: fai clic sul pulsante Eseguiper applicare il codice VBA (oppure premi)F5).

Nota:

1. Questo codice è adatto esclusivamente per la sottolineatura singola senza colore. Puoi modificare «wdUnderlineSingle» nel codice per adattarlo ad altri stili di sottolineatura, ad esempio «wdUnderlineDouble» o «wdUnderlineThick».

2. Questo codice rende corsivo solo il testo sottolineato, ma non rimuove la sottolineatura.

---