Application.PointsToLines (Word)

Convierte una medida de puntos a líneas (1 línea = 12 puntos).

PointsToLines (Points)

Points: Medida en puntos.

MsgBox PointsToLines(Selection.Paragraphs(1).LineSpacing) _ 
 & " lines"