Application.PointsToLines (Word)

Converte uma medida de pontos em linhas 1 linha = 12 pontos. Retorna a medida convertida como um único.

PointsToLines (Points)

Points: A medida em pontos.

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