Application.LinesToPoints (Word)

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

LinesToPoints (Lines)

Lines: Valor de línea que va a convertirse a puntos.

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