解决Microsoft Teams同步文件夹不同路径下邮件合并收件人列表加载问题

问题核心 #

Teams同步文件夹的路径因用户而异（C:\Users\username开头），Word默认保存的邮件合并数据源是绝对路径，导致同事打开文档时无法找到文件，需手动选择。通过VBA脚本动态获取当前文档所在文件夹下的数据源，可实现全员自动匹配。

解决方案 #

使用改进后的Document_Open事件宏，自动查找同文件夹下的Excel数据源，同时关闭冗余弹窗、清除旧连接避免冲突。

步骤1：保存文档为启用宏格式 #

将Word文档另存为**.docm格式**（仅此格式支持宏），覆盖原文件或保存为副本。

步骤2：替换VBA脚本 #

打开Word文档的VBA编辑器（按Alt+F11），找到ThisDocument模块，替换原有代码为以下版本：

Private Sub Document_Open()
    ' 临时关闭Word弹窗，避免干扰自动连接
    Application.DisplayAlerts = wdAlertsNo
    
    Dim fs As Object
    Dim filename As String
    Dim folderPath As String
    
    ' 创建文件系统对象用于查找文件
    Set fs = CreateObject("Scripting.FileSystemObject")
    
    ' 获取当前文档所在的Teams同步文件夹路径
    folderPath = ThisDocument.Path
    
    ' 遍历当前文件夹，匹配目标数据源文件
    Dim file As Object
    For Each file In fs.GetFolder(folderPath).Files
        ' 不区分大小写匹配文件名（适配不同命名习惯）
        If LCase(file.Name) Like "*general template.xlsx" Then
            filename = file.Path
            Exit For
        End If
    Next file
    
    ' 未找到数据源时提示并退出
    If filename = "" Then
        MsgBox "未找到数据源文件：*General Template.xlsx", vbExclamation, "错误"
        Application.DisplayAlerts = wdAlertsAll
        Exit Sub
    End If
    
    ' 关闭旧的数据源连接，避免残留路径导致冲突
    If ActiveDocument.MailMerge.DataSource.Name <> "" Then
        ActiveDocument.MailMerge.CloseDataSource
    End If
    
    ' 配置邮件合并数据源
    ActiveDocument.MailMerge.MainDocumentType = wdFormLetters
    ActiveDocument.MailMerge.OpenDataSource _
        Name:=filename, _
        ConfirmConversions:=False, _
        ReadOnly:=True, ' 只读模式避免多人访问时文件锁定
        LinkToSource:=True, _
        AddToRecentFiles:=False, _
        Revert:=False, _
        Format:=wdOpenFormatAuto, _
        Connection:="Provider=Microsoft.ACE.OLEDB.12.0;User ID=Admin;Data Source=" & filename & ";Mode=Read;Extended Properties=""HDR=YES;IMEX=1""", _
        SQLStatement:="SELECT * FROM `General$`", _
        SubType:=wdMergeSubTypeAccess
    
    ' 切换合并域显示（可根据需求删除此行）
    ActiveDocument.MailMerge.ViewMailMergeFieldCodes = wdToggle
    
    ' 恢复Word弹窗提示
    Application.DisplayAlerts = wdAlertsAll
End Sub

步骤3：配置宏权限（全员需做） #

为避免每次打开文档都提示启用宏，可将Teams同步文件夹添加到Word信任位置：

1. 打开Word → 文件 → 选项 → 信任中心 → 信任中心设置
2. 选择「信任位置」→ 添加新位置
3. 选择Teams同步文件夹路径，勾选「同时信任此位置的子文件夹」

关键注意事项 #

• 数据源文件必须与Word文档在同一Teams同步文件夹下，文件名需包含General Template.xlsx（可修改代码中的匹配规则）
• 确保所有同事电脑安装了Microsoft.ACE.OLEDB.12.0驱动（Office默认安装，缺失可下载微软Access数据库引擎）
• 多人访问时，Excel数据源建议设置为只读模式（代码中已配置），避免文件锁定

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