跳到主要内容

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

作者:晓阳 最后修改时间:2020-07-24

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

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

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


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

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

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

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

doc删除多个页面1

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

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

doc删除多个页面2

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 键运行此代码,并弹出一个提示框,提醒您输入要删除的页码,请用逗号分隔页码,请参见屏幕截图:

doc删除多个页面3

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


选择多个单独的页面,然后一次将其删除:

如果您要从大型Word文档中删除多个特定页面, Kutools for Word's 选择页面 该功能可以帮助您根据需要先选择任何页面,然后按 删除 键一次删除它们。

doc删除多个页面4

Kutools for Word:具有100多个方便的Word加载项,可以在60天内免费试用,没有限制。 点击下载并立即免费试用!

最佳办公生产力工具

Kutools for Word - 通过 Over 提升您的文字体验 100 显着特点!

🤖 Kutools 人工智能助手:用人工智能改变你的写作 - 生成内容  /  重写文本  /  总结文件  /  快速获得答案,全部在Word中

📘 文档掌握: 分页  /  合并文件  /  以各种格式导出选择(PDF/TXT/DOC/HTML...)  /  批量转换为PDF  /  将页面导出为图像  /  一次打印多个文件...

内容编辑: 批量查找和替换 跨多个文件  /  调整所有图片的大小  /  转置表行和列  /  将表格转换为文字...

🧹 轻松清洁: 移开 多余的空间  /  分节符  /  所有标题  /  文本框  /  超链接  / 如需更多拆卸工具,请前往 删除组...

创意插入: 插 千位分隔符  /  复选框  /  单选按钮  /  扫码支付  /  条码  /  对角线表  /  公式标题  /  图片说明  /  表标题  /  多张图片  / 发现更多 插入组...

🔍 精准选择:精确定位 特定页面  /    /  形状  /  标题段落  / 增强导航功能 更多 选择功能...

星级增强: 导航到任何位置  /  自动插入重复文本  /  在文档窗口之间切换  /  11 转换工具...

👉 想要尝试这些功能吗?立即下载 Kutools for Word 并体验不同之处! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
Ciao, invece per eliminare "rapidamente" in un documento di svariate pagine (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

Grazie.
This comment was minimized by the moderator on the site
thanks. from where you learn the vba
This comment was minimized by the moderator on the site
Thanks for very helpful solutions!!!!!!!!!!!
There are no comments posted here yet
Leave your comments
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations