expression.PasteSmartStyleBehavior
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets Word to intelligently paste styles in text selected from a different document if the option has been disabled.
Sub UseSmartStyle()
With Options
If .PasteSmartStyleBehavior = False Then
.PasteSmartStyleBehavior = True
End If
End With
End Sub