Comment remplacer le format de soulignement par l’italique dans Word ?

Dans certaines situations, vous devrez peut-être remplacer tous les caractères soulignés par de l’italique — ou inversement — dans Word. Comment procéder rapidement pour transformer tout le texte souligné en italique ? Découvrez deux méthodes astucieuses pour y parvenir directement dans Word.

Remplacer tous les caractères soulignés par de l’italique avec Rechercher et remplacer

Remplacer tous les caractères soulignés par de l’italique avec VBA

---

Remplacer tous les caractères soulignés par de l’italique avec Rechercher et remplacer

Étape 1 : Cliquez sur Accueil>Remplacerou utilisez le raccourci Ctrl + Hpour ouvrir la boîte de dialogue Rechercher et remplacer ;

Étape 2 : Cliquez sur le bouton Plus pour afficher l’option Recherche.

Étape 3 : Placez le curseur dans la zone Rechercher, cliquez sur Police dans le menu déroulant Format, puis sélectionnez le style Souligné ainsi que la couleur Souligné.

Étape 4 : Placez le curseur dans la zone Remplacer par, cliquez sur Police dans le menu Format, puis sélectionnez Italique dans la liste « Style de police ».

    

Étape 5 : Cliquez sur OK ou sur Tout remplacer.

Remarque:

1. Cliquez sur Aucun formatage afin de vous assurer qu’aucune mise en forme n’est appliquée dans les zones Rechercher et Remplacer par avant votre opération.

2. Cette procédure applique uniquement l’italique au texte souligné, sans supprimer le soulignement.

---

Remplacer tous les caractères soulignés par de l’italique avec VBA

Vous pouvez également utiliser VBA pour remplacer le soulignement par de l’italique. Toutefois, si vous ne maîtrisez pas les macros, cette méthode n’est pas recommandée. Procédez comme suit :

Étape 1 : Appuyez sur Alt+F11pour ouvrir la fenêtre VBA dans Word ;

Étape 2 : Cliquez sur Modulesous l’onglet Insertion, puis insérez le code VBA dans la fenêtre Module;

Le code VBA permettant de remplacer tous les caractères soulignés par de l’italique dans 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

Étape 3 : Cliquez sur le bouton Exécuterpour appliquer le code VBA (ou appuyez sur)F5).

Remarque :

1. Ce code convient uniquement au soulignement simple sans couleur. Vous pouvez modifier « wdUnderlineSingle » dans le code pour l’adapter à d’autres styles de soulignement, tels que « wdUnderlineDouble » ou « wdUnderlineThick ».

2. Ce code applique uniquement l’italique au texte souligné, sans supprimer le soulignement.

---