メインコンテンツへスキップ

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に設定します。 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 このコードを実行するためのキーを押すと、削除するページ番号を入力するように促すプロンプトボックスが表示されます。ページ番号をカンマで区切ってください。スクリーンショットを参照してください。

docは複数のページを削除します3

4。 次に、をクリックします OK ボタンをクリックすると、指定したすべてのページが一度に削除されます。


複数の特定のページを選択して、一度に削除します。

大きなWord文書から複数の特定のページを削除したい場合は、 Kutools for Word's ページを選択 この機能を使用すると、必要に応じて最初に任意のページを選択してから、を押すことができます。 削除 それらを一度に削除するためのキー。

docは複数のページを削除します4

Kutools for Word:100以上の便利なWordアドインがあり、60日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアルをクリックしてください!

最高のオフィス生産性向上ツール

Kutools for Word - Over で単語体験を向上させましょう 100 注目すべき機能!

🤖 Kutools AI アシスタント: AI であなたの文章を変革します - コンテンツを生成する  /  テキストを書き換える  /  文書を要約する  /  情報のお問い合わせ 文書に基づいて、すべて Word 内で

📘 ドキュメントマスタリー: 分割ページ  /  ドキュメントをマージする  /  選択内容をさまざまな形式でエクスポート (PDF/TXT/DOC/HTML...)  /  PDFへの一括変換  /  ページを画像としてエクスポート  /  複数のファイルを一度に印刷する...

コンテンツ編集: バッチ検索と置換 複数のファイルにわたる  /  すべての画像のサイズを変更する  /  テーブルの行と列を転置する  /  表をテキストに変換...

🧹 楽にお掃除:振り払って 余分なスペース  /  セクションブレーク  /  すべてのヘッダー  /  テキストボックス  /  ハイパーリンク  / その​​他の取り外しツールについては、当社の Web サイトをご覧ください。 グループを削除...

クリエイティブインサート:挿入 千の区切り文字  /  チェックボックス  /  ラジオボタン  /  QRコード  /  バーコード  /  斜線テーブル  /  方程式のキャプション  /  画像キャプション  /  テーブルキャプション  /  複数の写真  / 詳細については、 グループを挿入...

🔍 正確な選択: ピンポイント 特定のページ  /  テーブル  /  シェイプ  /  見出し段落  / ナビゲーションを強化する 他には? 機能の選択...

スターの強化: あらゆる場所に素早く移動  /  繰り返しのテキストを自動挿入  /  ドキュメントウィンドウをシームレスに切り替える  /  11 変換ツール...

👉 これらの機能を試してみませんか? Kutools for Wordは、 60日無料トライアル、制限なし! 🚀
 
Comments (3)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
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 a ricercare.

Grazie.
This comment was minimized by the moderator on the site
thanks. from where you learn the vba
This comment was minimized by the moderator on the site
Thanks for very helpful solutions!!!!!!!!!!!
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations