Classe DropCap - lettrine située au début d'un paragraphe (Word VBA)

La classe DropCap représente une lettrine située au début d'un paragraphe. Pour utiliser une variable de classe DropCap, elle doit d'abord être instanciée, par exemple

Dim dcp as DropCap
Set dcp = ActiveDocument.Paragraphs(1).DropCap

Clear

Annule la mise en forme lettrine.

Set drop = ActiveDocument.Paragraphs(1).DropCap 
If Not (drop Is Nothing) Then drop.Clear

DistanceFromText

Cette propriété renvoie ou définit une valeur unique qui représente la distance (en points) entre la lettrine et le texte du paragraphe.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .FontName= "Arial" 
 .Position = wdDropNormal 
 .DistanceFromText = 12 
End With

Enable

Crée une lettrine à partir du premier caractère du paragraphe actif.

With Selection.Paragraphs(1).DropCap 
 .Enable 
 .LinesToDrop = 2 
 .FontName = "Arial" 
End With

FontName

Cette propriété renvoie ou définit une chaîne qui représente le nom de la police pour la lettrine.

With ActiveDocument.Paragraphs(1).DropCap 
 .FontName = "Arial" 
 .Position = wdDropNormal 
 .LinesToDrop = 3 
 .DistanceFromText = InchesToPoints(0.1) 
End With

LinesToDrop

Cette propriété renvoie ou définit la hauteur (en lignes) de la lettrine spécifiée.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .Position = wdDropNormal 
 .LinesToDrop = 3 
End With

Position

Cette propriété renvoie ou définit la position d'une lettrine. Les valeurs de retour possibles sont wdDropMargin - La majuscule ignorée se termine dans la marge de gauche, wdDropNone - Aucune lettrine, wdDropNormal - La majuscule ignorée commence dans la marge de gauche.

With ActiveDocument.Paragraphs(1).DropCap 
 .Enable 
 .FontName= "Arial" 
 .Position = wdDropNormal 
End With