expression.PasteSmartCutPaste
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets Word to enable intelligent selection pasting if the option has been disabled.
Sub EnableSmartCutPaste()
If Options.PasteSmartCutPaste = False Then
Options.PasteSmartCutPaste = True
End If
End Sub