如何避免打开邮件合并主文档时弹出的运行SQL命令的提示对话框？

当在word文档中创建了邮件合并后，word文档就变成了邮件合并的主文档。

邮件合并的主文档相当于一个word模板，该模板中定义了邮件合并后要生成的N个文档的布局和内容，只需在主文档中插入邮件合并字段，执行邮件合并命令后即可生成N个具有相同布局，个别内容不一样的word文档。

但是每次关闭邮件合并主文档后再次打开，就会出现如下图所示的“打开此文档将运行以下SQL命令”的提示：

如果移动了邮件合并的数据源，单击上图中的对话框中的“是”将会弹出一系列出错的提示对话框。

可以在保存邮件合并主文档之前，按照如下的操作步骤即可避免保存再打开后弹出上图所示的对话框：

在“邮件”选项卡下，“开始邮件合并”工作组中单击“开始邮件合并”选择“普通 Word 文档”。

如下图所示

然后再保存即可。

在vba中，可以直接通过将MailMerge对象的MainDocumentType属性设置为普通Word文档来实现上述目的，代码如下：

Sub QQ1722187970()
    Dim oMailMerge As MailMerge
    Dim oDoc As Document
    Set oDoc = Word.ActiveDocument
    Set oMailMerge = oDoc.MailMerge
    '邮件合并对象
    With oMailMerge
        '设置为非邮件合并主文档，解除与数据源的关联
        .MainDocumentType = wdNotAMergeDocument
    End With
End Sub