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

Word文書では、現在のページコンテンツを選択し、Deleteキーを押して現在のページを簡単に削除できます。 しかし、大きなWordファイルから複数のページを削除する必要がある場合、どうすればそれをすばやく解決できますか？

移動機能を使用してWord文書のページ範囲を削除する

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

移動機能を使用してWord文書のページ範囲を削除する

Word文書から連続するページの範囲を削除したい場合は、移動機能を使用すると便利です。

1。 ページを削除するWord文書を起動します。

2。 次に、 F5 キーを開く 検索および置換 ダイアログボックス、下 へ行きます タブをクリックします。 ページ 何に行く リストボックスに移動し、削除する開始ページ番号を入力して、を押します。 入力します 特定のページに移動するためのキー。スクリーンショットを参照してください。

2。 次に、これを閉じます 検索および置換 ダイアログボックスをクリックし、を押します F8 をオンにする 拡張モード.

3。 押し続けます F5 キーを開く 検索および置換 ダイアログ、今回は削除したい終了ページ番号を入力し、を押します 入力します キー。 15から20までのすべてのページが一度に選択されました。 スクリーンショットを参照してください：

4。 最後に、を押します 削除 これらのページを一度に削除するには、直接キーを押します。

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

連続していないWordファイル内の複数の特定のページを削除するには、次のVBAコードが役立ちます。

1。 を押し続けます Alt + F11 キーを押して アプリケーション向け Microsoft Visual Basic 窓。

2に設定します。 OK をクリックします。 インセット > モジュール、モジュールウィンドウに次のコードを貼り付けます。

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 - Word用の100以上の高度な機能で、50%の時間を節約

• 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
• 複数の画像をフォルダ間でWord文書に一度に挿入します。
• フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
• 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
• DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...

続きを読む 今すぐダウンロード 購入