expression.DecreaseSpacing
expression Required. An expression that returns a Paragraphs object.
Example
This example decreases the before and after spacing of a paragraph or selection of paragraphs by six points each time the procedure is run. If the before and after spacing are both zero, the procedure will do nothing.
Sub DecreaseParaSpacing()
Selection.Paragraphs.DecreaseSpacing
End Sub