Word VBA需求：编写保留首页删除其余所有页面的宏代码

修正后的VBA代码 #

Sub KeepOnlyFirstPage()
    Dim doc As Document
    Dim firstPageEnd As Range
    Dim contentToDelete As Range
    
    Set doc = ActiveDocument
    
    ' 精准定位第一页的末尾位置
    Set firstPageEnd = doc.Bookmarks("\Page").Range
    firstPageEnd.Collapse Direction:=wdCollapseEnd
    
    ' 当文档页数大于1时，删除第一页之后的所有内容
    If doc.ComputeStatistics(wdStatisticPages) > 1 Then
        Set contentToDelete = doc.Range(Start:=firstPageEnd.Start, End:=doc.Content.End)
        contentToDelete.Delete
    End If
    
    ' 二次检查并清除可能残留的空白页（处理分页/分节符导致的残留）
    If doc.ComputeStatistics(wdStatisticPages) > 1 Then
        doc.Range(Start:=doc.Bookmarks("\Page").Range.End, End:=doc.Content.End).Delete
    End If
End Sub

原代码问题分析 #

你之前的代码依赖Selection对象定位页面范围，这种方式容易因为文档中的分页符、分节符或隐藏格式内容导致选择范围偏差，从而残留空白第二页。比如当第一页末尾的分页符未被完全包含在删除范围内时，就会留下空白页。

新代码逻辑说明 #

1. 避免使用Selection：直接通过Range对象操作文档内容，更精准且不会干扰用户当前的选中状态。
2. 精准定位第一页末尾：利用内置书签\Page获取第一页的范围，再通过Collapse方法定位到第一页的结束位置。
3. 批量删除后续内容：选中第一页结束位置到文档末尾的所有内容一次性删除，确保所有后续页面的内容（包括分页符、分节符）都被清除。
4. 二次检查兜底：删除后再次检查页数，若仍存在多页则再次清除第一页之后的内容，彻底解决残留空白页的问题。

使用方法 #

1. 打开你的Word模板文档，按下Alt + F11打开VBA编辑器。
2. 在左侧项目窗口中右键点击当前文档，选择「插入」→「模块」。
3. 将上述代码粘贴到模块窗口中，保存后即可运行宏。

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