如果该属性值为 True,则合并粘贴列表和周围列表的格式。Boolean 类型,可读写。
expression.PasteMergeLists
expression 必需。该表达式返回“应用于”列表中的一个对象。
如果禁用该选项,则本示例设置 Microsoft Word 自动合并粘贴列表和周围列表的格式。
Sub UseSmartStyle()
    With Options
        If .PasteMergeLists = False Then
            .PasteMergeLists = True
        End If
    End With
End Sub