如何用Access VBA填充含${...}占位符的Word模板？

VBA本身并没有内置专门识别和替换${...}格式占位符的语法，但你可以通过Word对象模型的查找替换功能、字符串操作或是正则表达式来实现这个需求，以下是几种实用的实现方案：

方案1：批量全局替换（适合简单模板） #

利用Word的查找替换引擎，批量替换所有匹配的占位符，效率较高：

Sub FillTemplateWithGlobalReplace()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim placeholderDict As Object
    
    ' 定义占位符与填充值的映射
    Set placeholderDict = CreateObject("Scripting.Dictionary")
    placeholderDict("${CustomerName}") = "星辰科技"
    placeholderDict("${OrderDate}") = Format(Date, "yyyy年mm月dd日")
    placeholderDict("${TotalAmount}") = "¥12800.00"
    
    ' 启动Word并打开模板
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True ' 调试时可见，发布可设为False
    Set wdDoc = wdApp.Documents.Open("C:\Templates\OrderTemplate.docx")
    
    ' 遍历映射执行替换
    Dim key As Variant
    For Each key In placeholderDict.Keys
        With wdDoc.Content.Find
            .ClearFormatting
            .Replacement.ClearFormatting
            .Text = key
            .Replacement.Text = placeholderDict(key)
            .Forward = True
            .Wrap = 1 ' wdFindContinue
            .Format = False
            .MatchCase = False
            .Execute Replace:=2 ' wdReplaceAll
        End With
    Next key
    
    ' 保存结果并清理资源
    wdDoc.SaveAs2 "C:\Output\FilledOrder.docx"
    wdDoc.Close
    wdApp.Quit
    
    Set wdDoc = Nothing
    Set wdApp = Nothing
    Set placeholderDict = Nothing
End Sub

方案2：逐段精细化替换（适合需局部控制的场景） #

如果需要针对特定段落、表格或文本框处理占位符，可以遍历文档对象进行逐个替换：

Sub ReplacePlaceholdersInSpecificAreas()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim para As Object
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("C:\Templates\ReportTemplate.docx")
    
    ' 遍历所有段落替换
    For Each para In wdDoc.Paragraphs
        para.Range.Text = Replace(para.Range.Text, "${ReportTitle}", "2024年度技术总结")
        para.Range.Text = Replace(para.Range.Text, "${Author}", "技术部")
    Next para
    
    ' 单独处理表格内容
    With wdDoc.Tables(1).Cell(2, 2).Range
        .Text = Replace(.Text, "${Q1Sales}", "¥56000")
    End With
    
    wdDoc.SaveAs2 "C:\Output\FilledReport.docx"
    
    wdDoc.Close
    wdApp.Quit
    Set para = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

方案3：正则表达式替换（适合复杂占位符规则） #

如果占位符包含动态命名或需要提取占位符名称，可借助VBScript正则表达式实现灵活匹配：

Sub UseRegexForDynamicPlaceholders()
    Dim wdApp As Object
    Dim wdDoc As Object
    Dim regex As Object
    Dim matches As Object
    Dim i As Integer
    Dim placeholderMap As Object
    
    ' 初始化正则表达式，匹配${xxx}格式
    Set regex = CreateObject("VBScript.RegExp")
    regex.Pattern = "\$\{(\w+)\}"
    regex.Global = True
    
    ' 定义占位符名称与值的映射
    Set placeholderMap = CreateObject("Scripting.Dictionary")
    placeholderMap("Product") = "智能办公系统"
    placeholderMap("Version") = "v2.1"
    
    Set wdApp = CreateObject("Word.Application")
    wdApp.Visible = True
    Set wdDoc = wdApp.Documents.Open("C:\Templates\ProductTemplate.docx")
    
    ' 反向遍历匹配结果，避免替换时索引错乱
    Set matches = regex.Execute(wdDoc.Content.Text)
    For i = matches.Count - 1 To 0 Step -1
        wdDoc.Content.Text = Replace(wdDoc.Content.Text, matches(i).Value, placeholderMap(matches(i).SubMatches(0)))
    Next i
    
    wdDoc.SaveAs2 "C:\Output\FilledProductDoc.docx"
    
    wdDoc.Close
    wdApp.Quit
    Set matches = Nothing
    Set regex = Nothing
    Set placeholderMap = Nothing
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

以上方案都是基于VBA原生功能扩展实现，完全可以覆盖${...}占位符的填充需求，你可以根据模板的复杂度选择对应的方法。

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