如何使用宏从Quick Parts中保存的块插入页眉

不推荐使用SendKeys()调用F3实现Quick Parts填充页眉的需求，SendKeys的执行逻辑高度依赖窗口焦点、界面响应速度，非常容易出现误触发、功能失效的问题，有更稳定的原生VBA方法可以实现该需求。

Quick Parts对应的底层对象是Office的构建块（BuildingBlock），你可以直接调用对应条目插入到页眉区域，支持完整保留Quick Parts里的格式、控件等非文本内容，示例代码如下：

' 启用首页不同页眉页脚配置
ActiveDocument.Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True

' 1. 插入Quick Parts到首页页眉
Dim firstHeaderRng As Range
Set firstHeaderRng = ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range
' 代码中替换为你自己保存的Quick Parts条目名称
' 如果条目存在当前文档模板中，将NormalTemplate替换为ActiveDocument.AttachedTemplate
NormalTemplate.BuildingBlockEntries("你的首页页眉Quick Parts名称").Insert _
    Where:=firstHeaderRng, _
    RichText:=True

' 2. 插入Quick Parts到其他所有页的页眉
Dim primaryHeaderRng As Range
Set primaryHeaderRng = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range
NormalTemplate.BuildingBlockEntries("你的全局页眉Quick Parts名称").Insert _
    Where:=primaryHeaderRng, _
    RichText:=True

如果你确实要尝试SendKeys方案，需要先激活页眉编辑区域再发送按键，该方案稳定性极差，仅作测试参考：

' 选中要编辑的页眉区域激活编辑状态
ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range.Select
' 等待1秒确保界面响应，避免按键发送到错误位置
Application.Wait Now + TimeValue("00:00:01")
' 发送F3按键
SendKeys "{F3}", True

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