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

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日以内に制限なしで無料で試すことができます。 今すぐダウンロードして無料トライアルをクリックしてください!


推奨される単語生産性ツール

 

Word用のKutools - Word用の100以上の高度な機能で、50%の時間を節約

  • 複雑で繰り返される操作は、数秒でXNUMX回の処理で実行できます。
  • 複数の画像をフォルダ間でWord文書に一度に挿入します。
  • フォルダ間で複数のWordファイルをマージして、希望の順序でXNUMXつに結合します。
  • 見出し、セクション区切り、またはその他の基準に従って、現在のドキュメントを個別のドキュメントに分割します。
  • DocとDocx、DocxとPDFの間でファイルを変換し、一般的な変換と選択のためのツールのコレクションなど...
コメントを並べ替える
コメント (3)
まだ評価はありません。 最初に評価してください!
このコメントは、サイトのモデレーターによって最小化されました
非常に役立つ解決策をありがとう!!!!!!!!!!!
このコメントは、サイトのモデレーターによって最小化されました
ありがとう。 あなたがvbaを学ぶところから
このコメントは、サイトのモデレーターによって最小化されました
Ciao, invece per eliminare "rapidamente" in un documento di svariate pageine (circa 100) più fogli vuoti non consecutivi è possibile?
Esiste un procedimento per eliminare i fogli vuoti, senza doverli andare a ricercare.

ありがとうございます。
ここにはまだコメントが投稿されていません

フォローする

著作権©の2009 - WWW。extendoffice.com。 | | 全著作権所有。 搭載 ExtendOffice。 | サイトマップ
MicrosoftおよびOfficeのロゴは、米国MicrosoftCorporationの米国およびその他の国における商標または登録商標です。
SectigoSSLで保護