VBA操作Word：如何将表格粘贴到文档首页/第一部分页眉页脚？

原有问题代码 #

word_fichier_template.Tables(1).Range.Copy

'注释标注：将表格粘贴到文档的每一节
With word_fichier.Sections(1).Footers(wdHeaderFooterPrimary).Range
    .Collapse wdCollapseStart
    .Paste
End With

'注释标注：正常运行，将表格粘贴到第二节
word_fichier_template.Tables(2).Range.Copy
With word_fichier.Sections(2).Headers(wdHeaderFooterPrimary).Range
    .Collapse wdCollapseStart
    .Paste
End With

逻辑偏差与运行错误原因 #

• 第一处注释和实际逻辑不匹配：代码仅操作了第1节的主页脚，没有遍历所有节执行粘贴，根本无法实现「粘贴到文档每一节」的效果。
• 调用Headers(wdHeaderFooterFirstPage).Range执行粘贴失败的核心原因：
  Word默认关闭「首页不同页眉页脚」配置，此时wdHeaderFooterFirstPage对应的页眉/页脚对象未激活，直接调用Range属性会触发运行时错误。
  额外注意：Word默认开启节之间的「链接到前一条页眉/页脚」，如果不提前断开链接，对当前节页眉页脚的修改会同步到之前所有关联节，无法实现指定位置单独粘贴的效果。

修正后可运行代码 #

如果要实现「第一个表格仅粘贴到第1节首页页脚、第二个表格仅粘贴到第2节主页眉」的效果，参考如下代码：

'提前定义Word常量，避免未引用Word对象库时枚举值报错
Const wdHeaderFooterPrimary As Long = 1
Const wdHeaderFooterFirstPage As Long = 2
Const wdCollapseStart As Long = 1

'粘贴第一个表格到第1节首页页脚
word_fichier_template.Tables(1).Range.Copy
With word_fichier.Sections(1)
    '开启当前节首页不同配置
    .PageSetup.DifferentFirstPageHeaderFooter = True
    '断开首页页脚和前一节的关联
    .Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
    With .Footers(wdHeaderFooterFirstPage).Range
        .Collapse wdCollapseStart
        .Paste
    End With
End With

'粘贴第二个表格到第2节主页眉
word_fichier_template.Tables(2).Range.Copy
With word_fichier.Sections(2)
    '断开主页眉和前一节的关联
    .Headers(wdHeaderFooterPrimary).LinkToPrevious = False
    With .Headers(wdHeaderFooterPrimary).Range
        .Collapse wdCollapseStart
        .Paste
    End With
End With

文档效果参考截图 #

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