如何删除Word文档中的多个特定页面？

在Word文档中，您可以选择当前页面的内容，然后按Delete键可以轻松删除当前页面。 但是，如果您需要从一个较大的Word文件中删除多个页面，如何迅速解决呢？

使用“转到”功能删除Word文档中的页面范围

使用VBA代码删除Word文档中的多个特定页面

使用“转到”功能删除Word文档中的页面范围

如果要从Word文档中删除一系列连续的页面，则转到功能可以帮您一个忙。

1。 启动您要删除页面的Word文档。

2。 然后按 F5 键打开 查找和替换 对话框中的 转到 标签，点击 页 在 去什么 列表框，然后输入要从中删除的起始页码，然后按 输入 键转到特定页面，请参见屏幕截图：

2。 然后关闭这个 查找和替换 对话框，然后按 F8 打开 延伸模式.

3。 继续按 F5 键打开 查找和替换 对话框，这一次，输入要删除的结束页码，然后按 输入 键。 从15到20的所有页面都已被选中。 看截图：

4。 最后按 删除 直接按一下即可立即删除这些页面。

使用VBA代码删除Word文档中的多个特定页面

要删除一个不连续的Word文件中的多个特定页面，下面的VBA代码可以为您提供帮助。

1。 按住 ALT + F11 键打开 Microsoft Visual Basic应用程序 窗口。

2。 点击 插页 > 模块，然后将以下代码粘贴到“模块窗口”中。

VBA代码：删除Word文件中的多个特定页面：

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

3。 然后按 F5 键运行此代码，并弹出一个提示框，提醒您输入要删除的页码，请用逗号分隔页码，请参见屏幕截图：

4。 然后，单击 OK 按钮，您指定的所有页面都被立即删除。

---

推荐的Word生产力工具

 

Kutools For Word-超过100种Word高级功能，节省50％的时间

• 复杂和重复的操作可以在几秒钟内完成一次处理。
• 跨文件夹一次将多个图像插入Word文档。
• 将文件夹中的多个Word文件合并并合并为所需顺序。
• 根据标题，分节符或其他条件将当前文档拆分为单独的文档。
• 在Doc和Docx之间，Docx和PDF之间转换文件，用于常见转换和选择的工具集合等...

了解更多 现在下载 购买