Application.PicasToPoints (Word)

Convierte una medida en picas a puntos (1 pica = 12 puntos).

PicasToPoints (Picas)

Picas: Valor en picas que va a convertirse a puntos.

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