如何用VBA插入与Word UI操作效果一致的封面？

需求说明 #

需要实现和Word 2016+ Windows版本UI中「插入封面」命令完全一致的效果：

• 插入用户选择的封面构建基块
• 封面页页码设为0，且不计入Page/NumPages域的统计，但计入文档的Pages属性
• 激活首页页眉
• 封面后自动添加分页符而非分节符

当前代码使用分节符，导致封面页被计入NumPages域统计，不符合需求，需要找到对应Word/VBA指令实现原生效果。

现有问题代码 #

Selection.HomeKey Unit:=wdStory
Selection.InsertBreak Type:=wdSectionBreakNextPage
Selection.EndKey Unit:=wdStory
Selection.HomeKey Unit:=wdStory
With Selection.Sections(1).Headers(1).PageNumbers
    .NumberStyle = wdPageNumberStyleArabic
    .HeadingLevelForChapter = 0
    .IncludeChapterNumber = False
    .ChapterPageSeparator = wdSeparatorHyphen
    .RestartNumberingAtSection = True
    .StartingNumber = 0
End With
With ActiveDocument
    .Sections(2).Headers(wdHeaderFooterFirstPage).LinkToPrevious = False
    .Sections(2).Footers(wdHeaderFooterFirstPage).LinkToPrevious = False
    .Sections(1).PageSetup.DifferentFirstPageHeaderFooter = True
    .Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text = ""
    .Sections(1).Footers(wdHeaderFooterFirstPage).Range.Text = ""
End With

解决方案：调用Word原生封面插入逻辑 #

Word UI的「插入封面」本质是调用构建基块插入并结合「首页不同」页码设置，无需分节符即可实现需求，核心步骤如下：

1. 插入封面构建基块

使用BuildingBlock.Insert方法，指定InsertOptions:=wdInsertOptionsInsertAsNewPage，会自动在封面后添加分页符，同时确保封面作为文档首页存在。

2. 配置页码规则

启用文档的DifferentFirstPageHeaderFooter属性，设置首页页码为0且隐藏，正文页码从1开始，这样Page/NumPages域会自动排除首页，但Pages文档属性仍会统计封面页。

3. 激活首页页眉

切换到首页页眉的编辑模式，和UI插入封面后的行为一致。

完整实现代码 #

Sub InsertCoverMatchUI()
    Dim coverBB As BuildingBlock
    Dim doc As Document
    
    Set doc = ActiveDocument
    
    ' 弹出构建基块选择对话框，让用户手动选择封面（完全模拟UI交互）
    Dialogs(wdDialogBuildingBlockInsert).Show
    Set coverBB = doc.AttachedTemplate.BuildingBlockEntries _
        .Item(Dialogs(wdDialogBuildingBlockInsert).Name)
    
    If coverBB Is Nothing Then
        MsgBox "未选择有效的封面构建基块", vbExclamation
        Exit Sub
    End If
    
    ' 插入封面，自动添加分页符而非分节符
    coverBB.Insert Where:=doc.Range(0, 0), InsertOptions:=wdInsertOptionsInsertAsNewPage
    
    ' 启用首页不同页眉页脚
    With doc.PageSetup
        .DifferentFirstPageHeaderFooter = True
    End With
    
    ' 设置首页页码为0且隐藏
    With doc.Sections(1).Headers(wdHeaderFooterFirstPage).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .StartingNumber = 0
        .Visible = False
    End With
    
    ' 设置正文页码从1开始并显示
    With doc.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers
        .NumberStyle = wdPageNumberStyleArabic
        .StartingNumber = 1
        .Visible = True
        .RestartNumberingAtSection = False
    End With
    
    ' 激活首页页眉编辑模式
    doc.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Select
End Sub

关键说明 #

• 避免分节符：使用wdInsertOptionsInsertAsNewPage插入封面时，Word自动添加分页符而非分节符，整个文档保持单节状态，避免NumPages统计异常。
• 页码统计匹配：启用DifferentFirstPageHeaderFooter后，NumPages域仅统计正文页数，而文档属性Pages仍包含封面页，完全符合UI效果。
• 交互一致性：通过wdDialogBuildingBlockInsert对话框让用户选择封面，和原生UI操作逻辑完全一致。

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