如何阻止Word邮件合并启动，以便在Document_Open中完成配置？

核心思路：先切断旧数据源关联，再通过VBA重新配置 #

要阻止Word打开时自动加载原邮件合并数据源，关键是在Document_Open事件开头先清除文档的合并文档标识，再重新完成数据源配置，具体步骤如下：

1. 阻止自动加载旧数据源的VBA代码

在Document_Open中先将文档临时标记为非合并文档，这样Word就不会触发自动加载逻辑，之后再重新配置邮件合并：

Private Sub Document_Open()
    ' 第一步：临时禁用邮件合并自动连接，阻止Word加载旧数据源
    With ThisDocument.MailMerge
        .MainDocumentType = wdNotAMergeDocument
    End With

    ' 第二步：自定义逻辑确定Excel数据源路径（替换成你的规则）
    Dim dataSourcePath As String
    ' 示例：按用户目录生成路径，或者弹出选择框
    dataSourcePath = Environ("USERPROFILE") & "\Documents\数据源.xlsx"

    ' 第三步：检查数据源是否存在，不存在则让用户手动选择
    If Dir(dataSourcePath) = "" Then
        MsgBox "预设数据源不存在，请手动选择Excel文件。", vbExclamation
        With Application.FileDialog(msoFileDialogFilePicker)
            .Filters.Clear
            .Filters.Add "Excel文件", "*.xlsx;*.xls"
            .AllowMultiSelect = False
            If .Show = -1 Then
                dataSourcePath = .SelectedItems(1)
            Else
                ' 用户取消选择，维持非合并状态避免错误提示
                Exit Sub
            End If
        End With
    End If

    ' 第四步：重新配置邮件合并，跳过SQL提示
    Application.DisplayAlerts = wdAlertsNone ' 临时禁用所有提示
    With ThisDocument.MailMerge
        .MainDocumentType = wdFormLetters ' 根据你的文档类型调整（如wdEmails）
        .OpenDataSource _
            Name:=dataSourcePath, _
            ReadOnly:=True, _
            LinkToSource:=False, ' 关键：不链接到源，避免后续自动加载
            Connection:="Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & dataSourcePath & ";Extended Properties=""HDR=YES;IMEX=1;""", _
            SQLStatement:="SELECT * FROM `Sheet1$`", ' 替换成你的工作表名
            SubType:=wdMergeSubTypeAccess
    End With
    Application.DisplayAlerts = wdAlertsAll ' 恢复提示设置
End Sub

2. 消除“运行SQL命令”提示的关键设置

• 代码中LinkToSource:=False：让Word仅读取数据源内容，不建立实时链接，从根源避免SQL提示。
• 配合Application.DisplayAlerts = wdAlertsNone：临时禁用所有Word提示，执行完配置后再恢复，确保用户无干扰。

3. 额外注意事项

• 宏信任设置：用户必须在Word信任中心启用宏，或把文档放在信任文件夹，否则VBA代码无法执行，仍会出现旧提示。
• 可选优化：在Document_Close事件中把文档设回wdNotAMergeDocument，下次打开时残留状态更少：

  Private Sub Document_Close()
      ThisDocument.MailMerge.MainDocumentType = wdNotAMergeDocument
  End Sub
  

内容的提问来源于stack exchange，提问作者Rizz Kid