使用VBA合并Word文档时保留原文档页眉的技术问题

你的问题出在插入文档B时，新添加的节默认会断开与前一节的页眉链接，加上文档B本身无页眉设置，导致整个文档的页眉格式被重置。以下是修改后的代码，确保合并后所有部分都保留文档A的页眉：

Dim Doc_A As Document
Dim targetRange As Range
Dim sec As Section

' 打开文档A
Set Doc_A = Documents.Open(path_A)
' 获取文档A末尾的范围，替代Selection操作更稳定
Set targetRange = Doc_A.Content
targetRange.Collapse Direction:=wdCollapseEnd

' 插入下一页分节符
targetRange.InsertBreak (wdSectionBreakNextPage)
targetRange.Collapse Direction:=wdCollapseEnd

' 插入文档B，指定格式匹配目标文档
targetRange.InsertFile FileName:=Path_B, Link:=False, Attachment:=False, Format:=wdFormatOriginalFormatting

' 遍历所有节，设置页眉与前一节链接，统一使用文档A的页眉
For Each sec In Doc_A.Sections
    ' 处理主要页眉
    sec.Headers(wdHeaderFooterPrimary).LinkToPrevious = True
    ' 若文档A有偶数页页眉，同步设置链接
    sec.Headers(wdHeaderFooterEvenPages).LinkToPrevious = True
Next sec

' 保存合并后的文档
Doc_A.Save

关键说明： #

• 改用Range对象操作而非Selection，避免光标位置不确定的问题，代码逻辑更稳定。
• 插入文档时指定Format:=wdFormatOriginalFormatting，确保插入内容的格式匹配文档A。
• 通过LinkToPrevious = True让所有节的页眉继承文档A原有节的设置，文档B的部分会自动应用文档A的页眉。
• 如果文档A的首页页眉有特殊设置，可以单独调整wdHeaderFooterFirstPage的LinkToPrevious属性。

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