如何批量将指定目录docx文件中的字符串替换为Word域？

方案1：VBA（原生兼容最佳，无额外依赖） #

直接调用Word原生对象模型，格式兼容性最好，适合普通用户批量操作：

Sub BatchReplaceTextToMergeField()
    ' 配置参数
    Const targetFolder As String = "C:\你的docx文件夹路径" ' 替换为你的文件夹路径
    Const searchText As String = "[[6] or [12] months]" ' 要查找的字符串
    Const mergeFieldName As String = "preexisting_condition_limit" ' 要插入的合并域名称
    
    Dim wordApp As Word.Application
    Dim doc As Word.Document
    Dim file As String
    
    Set wordApp = New Word.Application
    wordApp.Visible = False ' 后台运行，调试时可改为True
    
    file = Dir(targetFolder & "*.docx")
    Do While file <> ""
        Set doc = wordApp.Documents.Open(targetFolder & file)
        ' 执行查找
        With doc.Content.Find
            .Text = searchText
            .MatchWholeWord = True
            .MatchCase = False
            Do While .Execute = True
                ' 找到后选中匹配内容，替换为MergeField域
                .Parent.Select
                wordApp.Selection.Fields.Add _
                    Range:=wordApp.Selection.Range, _
                    Type:=wdFieldMergeField, _
                    Text:=Chr(34) & mergeFieldName & Chr(34), _
                    PreserveFormatting:=False
            Loop
        End With
        ' 保存关闭文档
        doc.Save
        doc.Close
        file = Dir
    Loop
    
    wordApp.Quit
    Set wordApp = Nothing
    MsgBox "批量替换完成"
End Sub

使用方法： #

• 打开任意Word文档，按Alt+F11打开VBA编辑器
• 右键点击左侧项目树，选择「插入」-「模块」，粘贴上述代码
• 修改代码顶部的文件夹路径、查找文本、合并域名称参数
• 按F5运行即可

方案2：C# 基于Word Interop（适合.NET应用集成） #

适合需要集成到业务系统的场景，依赖Office Interop库：

using Microsoft.Office.Interop.Word;
using System;
using System.IO;

class WordFieldReplace
{
    static void Main(string[] args)
    {
        string targetFolder = @"C:\你的docx文件夹路径";
        string searchText = "[[6] or [12] months]";
        string mergeFieldName = "preexisting_condition_limit";
        
        Application wordApp = new Application();
        wordApp.Visible = false;
        
        foreach (string filePath in Directory.GetFiles(targetFolder, "*.docx"))
        {
            Document doc = wordApp.Documents.Open(filePath);
            Find find = doc.Content.Find;
            find.Text = searchText;
            find.MatchWholeWord = true;
            find.MatchCase = false;
            
            while (find.Execute())
            {
                Range matchRange = find.Parent;
                doc.Fields.Add(
                    Range: matchRange,
                    Type: WdFieldType.wdFieldMergeField,
                    Text: $"\"{mergeFieldName}\"",
                    PreserveFormatting: false
                );
            }
            
            doc.Save();
            doc.Close();
        }
        
        wordApp.Quit();
        Console.WriteLine("处理完成");
    }
}

使用说明： #

• 项目需要通过NuGet安装Microsoft.Office.Interop.Word包
• 运行环境需要安装对应版本的Microsoft Word

方案3：PowerShell 脚本（适合轻量批量执行） #

无需编译，直接运行脚本即可，适合非开发场景：

# 配置参数
$targetFolder = "C:\你的docx文件夹路径"
$searchText = "[[6] or [12] months]"
$mergeFieldName = "preexisting_condition_limit"

# 初始化Word对象
$wordApp = New-Object -ComObject Word.Application
$wordApp.Visible = $false

# 遍历所有docx文件
Get-ChildItem -Path $targetFolder -Filter "*.docx" | ForEach-Object {
    $doc = $wordApp.Documents.Open($_.FullName)
    $find = $doc.Content.Find
    $find.Text = $searchText
    $find.MatchWholeWord = $true
    $find.MatchCase = $false

    while ($find.Execute()) {
        $matchRange = $find.Parent
        $doc.Fields.Add($matchRange, [Microsoft.Office.Interop.Word.WdFieldType]::wdFieldMergeField, "`"$mergeFieldName`"", $false)
    }

    $doc.Save()
    $doc.Close()
}

$wordApp.Quit()
[System.Runtime.Interopservices.Marshal]::ReleaseComObject($wordApp) | Out-Null
Write-Host "批量处理完成"

使用说明： #

• 保存上述代码为.ps1后缀的脚本文件
• 右键选择「使用PowerShell运行」即可，运行环境需要安装Microsoft Word

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