Paragraphs.DecreaseSpacing (Word)

Diminui o espaçamento antes e depois dos parágrafos em incrementos de seis pontos.

Sub DecreaseParaSpacing() 
 Selection.Paragraphs.DecreaseSpacing 
End Sub