expression.PasteAdjustParagraphSpacing
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets Word to automatically adjust the spacing of paragraphs when cutting and pasting selections if the option has been disabled.
Sub AdjustParaSpace()
With Options
If .PasteAdjustParagraphSpacing = False Then
.PasteAdjustParagraphSpacing = True
End If
End With
End Sub