Comment supprimer une lettrine dans Word ?

Une lettrine est une majuscule de grande taille placée au début d’un bloc de texte et s’étendant sur deux lignes ou plus du texte courant. On la retrouve fréquemment en ouverture de romans. La figure suivante en présente un exemple :

Si vous devez supprimer une lettrine, vous pouvez utiliser l’une des méthodes suivantes :

• Supprimer manuellement une lettrine dans Word
• Supprimez toutes les lettrines du document en un seul clic à l’aide de Kutools pour Word
• Supprimer toutes les lettrines du document à l’aide d’un code VBA

---

Supprimer manuellement une lettrine dans Word

Vous pouvez supprimer une lettrine manuellement en suivant ces étapes :

1. Sélectionnez le paragraphe contenant la lettrine que vous souhaitez supprimer.
2. Cliquez sur l’onglet Insertion, puis sur Lettrine dans le groupe Texte.
3. Sélectionnez Aucunepour supprimer la lettrine.

   

---

Supprimez toutes les lettrines du document en un seul clic à l’aide de Kutools pour Word

Kutools pour Word vous offre une méthode rapide et facile pour supprimer toutes les lettrines de votre document — en un seul clic, elles disparaissent instantanément.

Cliquez sur Kutools > Supprimer > Supprimer toutes les lettrines dans la plage sélectionnée pour supprimer simultanément toutes les lettrines du document. Astuce : Si vous sélectionnez d’abord une partie du document, seules les lettrines situées dans cette sélection seront supprimées.

---

Supprimer toutes les lettrines du document à l’aide d’un code VBA

L’utilisation d’un code VBA constitue une méthode rapide et efficace pour supprimer toutes les lettrines de votre document. Suivez ces étapes :

1. Appuyez sur Alt + F11 pour ouvrir l’éditeur VBA dans Word.
2. Cliquez sur Insertion>Moduleet collez le code VBA suivant dans la fenêtre du module.

   Sub RemoveDropCaps()
   Dim oRng As Range
   On Error Resume Next
   For i=1 To ActiveDocument.Paragraphs.Count
   Set oRng=ActiveDocument.Paragraphs(i).Range
   With oRng.Paragraphs(1).DropCap
   .Position=wdDropNone
   End With
   Next i
   End Sub

3. Cliquez sur le bouton Exécuter pour lancer le code VBA.

---