如何刪除Word文檔中的多個特定頁面？

在Word文檔中，您可以選擇當前頁面的內容，然後按Delete鍵可以輕鬆刪除當前頁面。 但是，如果您需要從一個較大的Word文件中刪除多個頁面，如何快速解決呢？

使用“轉到”功能刪除Word文檔中的一系列頁面

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

使用“轉到”功能刪除Word文檔中的一系列頁面

如果要從Word文檔中刪除一系列連續的頁面，請使用“轉到”功能。

1。 啟動您要刪除頁面的Word文檔。

2。 然後按 F5 鍵打開 查找和替換 對話框中的 轉到 標籤，點擊 頁 在 去什麼 列錶框，然後輸入要從中刪除的起始頁碼，然後按 Enter 鍵轉到特定頁面，請參見屏幕截圖：

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

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

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 鍵運行此代碼，並彈出一個提示框，提示您輸入要刪除的頁碼，請用逗號分隔頁碼，請參見屏幕截圖：

4。 然後，單擊 OK 按鈕，您指定的所有頁面都被立即刪除。

---

推薦的Word生產力工具

 

Kutools For Word - 超過 100 Word 的高級功能, 節省您的 50% 時間

• 複雜和重複的操作可以在幾秒鐘內完成一次處理。
• 跨文件夾一次將多個圖像插入Word文檔。
• 將文件夾中的多個Word文件合併並合併為所需順序。
• 根據標題，分節符或其他條件將當前文檔拆分為單獨的文檔。
• 在Doc和Docx之間，Docx和PDF之間轉換文件，用於常見轉換和選擇的工具集合等...

閱讀更多 立即下載 購買