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 鍵打開 查找和替換 對話框中的 轉到 標籤,點擊 去什麼 列錶框,然後輸入要從中刪除的起始頁碼,然後按 Enter 鍵轉到特定頁面,請參見屏幕截圖:

doc刪除多個頁面1

2。 然後關閉這個 查找和替換 對話框,然後按 F8 打開 延伸模式.

3。 繼續按 F5 鍵打開 查找和替換 對話框,這一次,輸入要刪除的結束頁碼,然後按 Enter 鍵。 從15到20的所有頁面都已被選中。 看截圖:

doc刪除多個頁面2

4。 最後按 刪除 直接按一下即可立即刪除這些頁面。


使用VBA代碼刪除Word文檔中的多個特定頁面

若要刪除一個不連續的Word文件中的多個特定頁面,下面的VBA代碼可以為您提供幫助。

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

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保護