Application.LinesToPoints (Word)

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

LinesToPoints (Lines)

Lines: O valor em linhas a ser convertido em pontos.

With Selection.ParagraphFormat 
 .LineSpacingRule = wdLineSpaceMultiple 
 .LineSpacing = LinesToPoints(3) 
End With