如何让插入的PDF OLE对象覆盖Word整页（含页眉区域）

你当前的代码将PDF作为OLE对象插入正文区域，但默认的锚点和位置设置无法让对象延伸覆盖页眉。可以通过调整锚定范围、位置参数和层级来实现需求，以下是两种可行方案：

方案一：将OLE对象锚定到页眉（推荐） #

直接把对象插入页眉范围，确保它属于页眉层，能稳定覆盖页眉区域：

' 获取当前节的主页眉范围
Dim headerRng As Range
Set headerRng = ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).Range

' 在页眉插入PDF OLE对象
Set a = headerRng.Shapes.AddOLEObject(ClassType:="AcroExch.Document.DC", FileName:=PATH, DisplayAsIcon:=False, Anchor:=headerRng)

' 配置对象位置与层级，覆盖整个页面
With a
    ' 以页面为基准定位
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Left = 0
    .Top = 0
    ' 使用文档页面的实际宽高，适配不同设置
    .Width = ActiveDocument.PageSetup.PageWidth
    .Height = ActiveDocument.PageSetup.PageHeight
    ' 把对象移到最顶层，确保覆盖原有页眉内容
    .ZOrder msoBringToFront
End With

方案二：锚定正文但向上延伸覆盖页眉 #

如果需要保留正文锚点，可通过设置负的Top值让对象向上延伸，同时提升层级：

rng.InsertBreak Type:=wdPageBreak

Set a = ActiveDocument.Shapes.AddOLEObject(ClassType:="AcroExch.Document.DC", FileName:=PATH, DisplayAsIcon:=False, Anchor:=rng)
With a
    .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
    .RelativeVerticalPosition = wdRelativeVerticalPositionPage
    .Left = 0
    ' Top设为负数，数值根据页眉高度调整（示例为-50）
    .Top = -50
    .Width = ActiveDocument.PageSetup.PageWidth
    ' 高度增加对应数值，确保覆盖完整页面
    .Height = ActiveDocument.PageSetup.PageHeight + 50
    .ZOrder msoBringToFront
End With

关键修改说明 #

• 锚点切换：方案一直接锚定到页眉范围，避免正文内容变动导致对象移位；
• 定位基准：改用wdRelativeHorizontalPositionPage和wdRelativeVerticalPositionPage，相对于页面而非页边距，定位更精准；
• 层级提升：ZOrder msoBringToFront确保对象在所有内容上层，覆盖页眉；
• 适配页面：用ActiveDocument.PageSetup获取页面尺寸，替代硬编码数值，适配不同文档设置。

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