expression.PasteMergeLists
expression Required. An expression that returns one of the objects in the Applies To list.
Example
This example sets Microsoft Word to automatically merge list formatting with surrounding lists if the option has been disabled.
Sub UseSmartStyle()
With Options
If .PasteMergeLists = False Then
.PasteMergeLists = True
End If
End With
End Sub