如何用PowerShell批量更新Word邮件合并的Excel数据源路径？

直接上可运行的脚本，核心是通过Word对象模型的MailMerge.DataSource.ConnectString提取原路径，替换后更新连接字符串和数据源设置：

# 配置参数
$oldRootPath = "\\OldServer\SharedDocs\"  # 原数据源根路径
$newRootPath = "\\NewServer\NewSharedDocs\"  # 新数据源根路径
$wordDocsPath = "C:\YourWordDocsFolder\"  # Word文档所在文件夹

# 创建Word应用实例
$wordApp = New-Object -ComObject Word.Application
$wordApp.Visible = $false
$wordApp.DisplayAlerts = 0  # 禁用所有提示框

try {
    # 遍历所有Word文档（.doc和.docx）
    Get-ChildItem -Path $wordDocsPath -Include *.doc,*.docx -Recurse | ForEach-Object {
        $docPath = $_.FullName
        Write-Host "处理文档: $docPath"

        $doc = $wordApp.Documents.Open($docPath)
        try {
            # 检查文档是否启用邮件合并且有数据源
            if ($doc.MailMerge.MainDocumentType -ne 0 -and $doc.MailMerge.DataSource.ConnectString -ne "") {
                $connectString = $doc.MailMerge.DataSource.ConnectString
                Write-Host "原连接字符串: $connectString"

                # 提取并替换数据源路径
                # 匹配OLEDB连接字符串中的Data Source部分
                if ($connectString -match 'Data Source=([^;]+)') {
                    $oldDataSourcePath = $matches[1]
                    # 替换根路径
                    $newDataSourcePath = $oldDataSourcePath.Replace($oldRootPath, $newRootPath)

                    if ($oldDataSourcePath -ne $newDataSourcePath) {
                        # 更新连接字符串
                        $newConnectString = $connectString.Replace($oldDataSourcePath, $newDataSourcePath)
                        $doc.MailMerge.DataSource.ConnectString = $newConnectString

                        # 同时更新SourceName属性（部分文档需要）
                        $doc.MailMerge.DataSource.SourceName = $newDataSourcePath

                        # 保存文档
                        $doc.Save()
                        Write-Host "已更新数据源路径为: $newDataSourcePath"
                    } else {
                        Write-Host "路径无需更新"
                    }
                } else {
                    Write-Host "未找到可识别的数据源路径格式"
                }
            } else {
                Write-Host "该文档无邮件合并数据源"
            }
        } finally {
            $doc.Close()
            [System.Runtime.Interopservices.Marshal]::ReleaseComObject($doc) | Out-Null
        }
    }
} finally {
    $wordApp.Quit()
    [System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null
    [System.GC]::Collect()
    [System.GC]::WaitForPendingFinalizers()
    Write-Host "处理完成"
}

关键说明 #

• 为什么不用WordOpenXML？ 邮件合并的数据源连接信息存储在Word的OLEDB连接字符串中，直接通过MailMerge.DataSource对象读取更可靠，无需解析复杂的XML结构。
• 连接字符串匹配逻辑：针对Excel的OLEDB连接字符串，通过正则匹配Data Source=([^;]+)提取完整数据源路径，确保能准确替换根路径部分。
• 兼容性：支持.doc和.docx格式，需确保运行环境安装了对应版本的Office，以及Microsoft Access Database Engine（ACE）驱动（处理xlsx文件必备）。

注意事项 #

1. 运行脚本前关闭所有Word进程，避免文件锁定冲突。
2. 测试阶段可先备份部分文档，确认替换逻辑正确后再批量执行。
3. 若数据源路径包含特殊字符，需确保正则匹配逻辑能正常识别，必要时调整正则表达式。

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