Paragraphs.DecreaseSpacing (Word)

Decreases the spacing before and after paragraphs in six-point increments.

Sub DecreaseParaSpacing() 
 Selection.Paragraphs.DecreaseSpacing 
End Sub