Note: The other languages of the website are Google-translated. Back to English

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

在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天内免费试用,没有限制。 点击下载并立即免费试用!


推荐的Word生产力工具

 

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

  • 复杂和重复的操作可以在几秒钟内完成一次处理。
  • 跨文件夹一次将多个图像插入Word文档。
  • 将文件夹中的多个Word文件合并并合并为所需顺序。
  • 根据标题,分节符或其他条件将当前文档拆分为单独的文档。
  • 在Doc和Docx之间,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等...
按评论排序
注释 (3)
还没有评分。 成为第一位评论!
该评论由网站上的主持人最小化
感谢您提供非常有用的解决方案!!!!!!!!!!!!
该评论由网站上的主持人最小化
谢谢。 从哪里学习 vba
该评论由网站上的主持人最小化
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 aricercare。

谢谢。
这里还没有评论
留下你的意见
以访客身份发帖
×
评价此帖子:
0   产品特性
建议地点

关注我们

版权所有 © 2009 - extendoffice.com。 | 版权所有。 供电 ExtendOffice。 | 网站地图
Microsoft和Office徽标是Microsoft Corporation在美国和/或其他国家的商标或注册商标。
受Sectigo SSL保护