Word文書で複数の特定ページを削除するにはどうすればよいですか？

Author: Xiaoyang Last Modified: 2025-05-23

Wordで手動でページを削除するのは、特に大規模な文書を扱っている場合、面倒な作業になることがあります。単一ページの場合は選択してDeleteキーを押すだけで動作しますが、複数ページを削除するにはより効率的な方法が必要です。このガイドでは、Wordで特定のページやページ範囲を削除するための3つの実用的な解決策を提供します：

Go To機能を使用してページ範囲を削除

Kutools for Wordを使用して複数の特定ページを削除

VBAコードを使用して複数の特定ページを削除

Go To機能を使用してWord文書内のページ範囲を削除

Word文書から連続したページ範囲を削除したい場合、Go To機能はそのタスクを効率的に完了するのに役立ちます。以下の手順に従ってください：

削除したいページがあるWord文書を開きます。
F5キーを押して「検索と置換」ダイアログボックスを開きます。削除したい範囲の開始ページ番号を入力し、Enterキーを押します。
「検索と置換」ダイアログボックスを閉じ、F8キーを押して拡張モードをオンにします。
もう一度F5キーを押して「検索と置換」ダイアログボックスを再び開きます。今回は、削除したい範囲の終了ページ番号を入力し、Enterキーを押します。開始ページから終了ページの前のページまでのすべてのページが選択されます。
最後に、選択されたページを一度に削除するためにDeleteキーを押します。

注意: Escキーを押して拡張モードを終了してください。

Kutools for Wordを使用して複数の特定ページを削除

大規模なWord文書から複数の特定ページを削除する必要がある場合、Kutools for Wordの「ページを選択」機能を使用すると、目的のページを簡単に選択して削除できます。次の手順に従ってください：

Kutools for Wordについて、AI 🤖を搭載し、100 以上の便利な機能を提供して作業を簡素化します。

今すぐダウンロード

修正したいWord文書を開き、Kutools > 選択 > ページ > ページを選択をクリックします。
表示される ページを選択 ダイアログボックスで、次のいずれかのオプションを選択します：
- 範囲に従ってページを選択: 複数の連続したページを選択するためのページ範囲を指定します。
- 選択に従ってページを選択: 個別にクリックして非連続のページを手動で選択します。
OKをクリックして目的のページを選択します。次に、Deleteキーを押してそれらを一度にすべて削除します。

Kutools for Word は、作業を効率化し、文書処理スキルを向上させる究極の Word アドインです。今すぐ入手してください！

VBAコードを使用してWord文書内の複数の特定ページを削除

Word文書から複数の非連続ページを削除する必要がある場合、次のVBAコードを使用するとこれを効率的に行うことができます。

Alt + F11キーを押してMicrosoft Visual Basic for Applicationsウィンドウを開きます。

クリックします挿入 > モジュールそして、次のVBAコードをモジュールウィンドウに貼り付けます：

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