Application.PicasToPoints (Word)

Converte uma medida de paicas para pontos 1 paica = 12 pontos. Retorna a medida convertida como um único.

PicasToPoints (Picas)

Picas: O valor em paicas a ser convertido em pontos.

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