Application.PicasToPoints (Word)

Convertit en picas une mesure en points (1 pica = 12 points).

PicasToPoints (Picas)

Picas: Valeur en picas à convertir en points.

With ActiveDocument.PageSetup.LineNumbering 
 .Active = True 
 .DistanceFromText = PicasToPoints(4) 
End With