expression.PasteAdjustWordSpacing
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 words when cutting and pasting selections if the option has been disabled.
Sub AdjustWordSpace()
With Options
If .PasteAdjustWordSpacing = False Then
.PasteAdjustWordSpacing = True
End If
End With
End Sub