如何在 Word 文档中批量删除指定的多个页面？

作者小阳修改日期2025-01-24

在 Word 中手动删除页面十分繁琐，尤其是在处理大型文档时。虽然选中页面后按下 Delete 键可以删除单页，但批量删除多页时则需要更高效的解决方案。本文为您带来三种实用方法，助您轻松在 Word 中删除指定页面或页面范围：

使用“定位”功能删除页面范围

使用 Kutools for Word 批量删除多个指定页面

利用 VBA 代码批量删除多个指定页面

使用“定位”功能在 Word 文档中删除页面范围

如果您想从 Word 文档中删除一段连续页面，借助定位功能即可高效完成。请按以下步骤操作：

打开包含您想要删除页面的 Word 文档。
按下 F5，即可打开查找和替换对话框。输入要删除范围的起始页码后，按下 Enter。
在关闭查找和替换对话框后，按下 F8，即可启用扩展模式。
再次按下 F5，重新打开查找和替换对话框。这一次，输入要删除范围的结束页码，并按下 Enter。这样，起始页到结束页的前一页的所有页面将会被选中。
最后，按下 Delete 键即可一次性删除选定页面。

注意：按下 Esc 键即可退出扩展模式。

使用 Kutools for Word 批量删除多个指定页面

如果需要从较大的 Word 文档中删除多个指定页面，可使用 Kutools for Word 的选取页面功能，轻松选择并删除所需页面。请按以下步骤操作：

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

打开需要修改的 Word 文档，点击 Kutools > 选择 > 页面 > 选取页面。
在选取页面弹出的对话框中，选择以下任意一项：
- 按范围选取页面：自定义页面范围，支持选择多个连续页面，操作更灵活高效。
- 选取指定的页面：可手动逐一点击选择非连续页面。
点击确定选择需要的页面，然后按下 Delete 键即可一键全部删除。

Kutools for Word 是终极的 Word 插件，能够简化您的工作流程并提升文档处理效率。立即获取！

借助 VBA 代码批量删除 Word 文档中的多个指定页面

如果您需要从 Word 文档中高效删除多个非连续页面，以下 VBA 代码将为您提供帮助。

按住 Alt + F11，即可打开 Microsoft Visual Basic for Applications 窗口。

点击插入> 模块，并将以下 VBA 代码粘贴到模块窗口中：

Sub DeletePagesInDoc()
    Dim xRange As Range
    Dim xPage As String
    Dim xDoc As Document
    Dim xArr
    Dim I, xSplitCount As Long
    Application.ScreenUpdating = False
    Set xDoc = ActiveDocument
    xPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "KuTools for Word", "")
    xArr = Split(xPage, ",")
    xPageCount = UBound(xArr)
    For I = xPageCount To 0 Step -1
        Selection.GoTo wdGoToPage, wdGoToAbsolute, xArr(I)
        xDoc.Bookmarks("\Page").Range.Delete
    Next
    Application.ScreenUpdating = True
End Sub