如何用VBA替换Word模板生成文件中的页眉占位符文本？

原代码仅针对Word文档正文内容执行替换操作，未覆盖页眉区域，因此无法替换页眉中的/PROJ/占位符。以下是修正后的代码，同时覆盖正文、所有节的页眉，并适配后期绑定（无需引用Word对象库）的场景：

Public Sub WordFindAndReplace()
    Dim ws As Worksheet, msWord As Object
    Dim myDoc As Object ' 后期绑定用Object而非Word.Document
    Dim section As Object
    Dim findRange As Object
    Dim replaceText As String
    
    ' 定义Word常量（后期绑定需手动定义，避免引用库）
    Const wdFindContinue = 1
    Const wdReplaceAll = 2
    
    Set ws = ActiveSheet
    replaceText = ws.Range("I1").Value2
    Set msWord = CreateObject("Word.Application")
    
    With msWord
        .Visible = True
        Set myDoc = .Documents.Add("C:\Users\*User*\Documents\Custom Office Templates\MRB_Template.dotx")
        
        ' 1. 替换正文内容
        With myDoc.Content.Find
            .Text = "/PROJ/"
            .Replacement.Text = replaceText
            .Wrap = wdFindContinue
            .MatchWholeWord = True
            .Execute Replace:=wdReplaceAll
        End With
        
        ' 2. 替换所有节的页眉
        For Each section In myDoc.Sections
            Set findRange = section.Headers(1).Range ' 1=wdHeaderFooterPrimary，主页眉
            With findRange.Find
                .Text = "/PROJ/"
                .Replacement.Text = replaceText
                .Wrap = wdFindContinue
                .MatchWholeWord = True
                .Execute Replace:=wdReplaceAll
            End With
        Next section
    End With
    
    ' 释放对象
    Set findRange = Nothing
    Set section = Nothing
    Set myDoc = Nothing
    Set msWord = Nothing
End Sub

关键修改说明 #

• 覆盖页眉区域：新增循环遍历文档所有节的主页眉，对页眉范围执行同样的替换逻辑
• 适配后期绑定：手动定义Word常量（如wdFindContinue、wdReplaceAll），避免因未引用Word对象库导致的编译错误
• 代码优化：将替换文本提前赋值，减少重复调用；添加对象释放逻辑，避免内存泄漏

如果文档存在不同类型的页眉（如首页页眉、偶数页页眉），可在循环中增加对section.Headers(2)（首页页眉）、section.Headers(3)（偶数页页眉）的处理。

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