如何用VBA将Excel数据插入Word页眉？含占位符替换需求

方法一：修改现有查找替换逻辑覆盖页眉 #

你当前的代码仅针对文档正文（Word.Content）执行替换，要覆盖页眉的话，需要遍历文档所有节的页眉对象，对每个页眉单独执行查找替换：

Dim doc As Word.Document
Dim sec As Word.Section
Dim headerRange As Word.Range

Set doc = ActiveDocument ' 或者你通过Excel关联的Word文档对象

' 遍历每个节的页眉
For Each sec In doc.Sections
    Set headerRange = sec.Headers(wdHeaderFooterPrimary).Range
    ' 对页眉范围执行查找替换
    headerRange.Find.Execute FindText:="TAG", ReplaceWith:="Data", Replace:=wdReplaceAll
Next sec

' 保留原有的正文替换逻辑
doc.Content.Find.Execute FindText:="TAG", ReplaceWith:="Data", Replace:=wdReplaceAll

如果文档存在奇偶页不同、首页单独设置的页眉，可将wdHeaderFooterPrimary替换为wdHeaderFooterFirstPage、wdHeaderFooterEvenPages，按需处理对应页眉。

方法二：直接在页眉指定位置插入数据 #

若不想用查找替换，也可以直接定位到页眉的特定位置插入数据：

示例1：在页眉末尾插入数据 #

Dim doc As Word.Document
Set doc = ActiveDocument

' 获取主页眉的Range对象
With doc.Sections(1).Headers(wdHeaderFooterPrimary).Range
    .Collapse Direction:=wdCollapseEnd ' 定位到页眉内容末尾
    .Text = "你的目标数据" ' 插入数据
End With

示例2：替换页眉固定位置的文本 #

如果页眉里的占位符位置固定，可直接选中对应范围替换：

Dim doc As Word.Document
Dim headerRange As Word.Range

Set doc = ActiveDocument
Set headerRange = doc.Sections(1).Headers(wdHeaderFooterPrimary).Range

' 假设占位符位于页眉第5到第7个字符位置，自行调整Start和End的偏移值
headerRange.Start = headerRange.Start + 4
headerRange.End = headerRange.Start + 3
headerRange.Text = "替换后的内容"

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