VBAを介してWord文書の複数のページをすばやく削除する方法

この記事では、VBAを介してWord文書の複数のページを削除する方法のデモンストレーションに焦点を当てます。

ドキュメントのドラフトには、常に調整が必要です。 また、コンテンツのページを削除することは、他の変更と同じように必要です。 不要なテキストを削除するのは簡単です。 Most 人々は選択をすることを選択し、次に「削除」または「バックスペース」のいずれかを押すとタスクが実行されます。

これは確かにあなたが望むものを手に入れるでしょう。 しかし、そうする方が早いです。 さらに、選択手順をスキップして、一度に複数のページを削除します。 魅力的なアプローチは、Wordマクロを実行することです。

現在のページを削除

ある範囲のテキストを選択するのが嫌いな人にとって、これはあなたの祝福になり得ます。 まず、VBAを介して現在のページを削除する方法を示しましょう。

1. まず、削除したいページにカーソルを置きます。
2. 「開発者」タブをクリックしてから「VisualBasic」をクリックして、WordでVBAエディタを開きます。 リボンで「開発者」タブがまだ使用できない場合は、代わりに「Alt + F11」を押します。
3. 次に、「通常」をクリックします。
4. 次に、「挿入」をクリックし、そのメニューで「モジュール」を選択します。
5. ダブルクリックして新しいモジュールを開きます。
6. そして、そこに次のコードを貼り付けます。

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. 最後に、「実行」ボタンをクリックするか、「F5」を押します。

複数のページを削除する

1. 上記の手順に従って、マクロをインストールして実行します。
2. マクロを次のものに置き換えます。

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. マクロを実行すると、入力ボックスがトリガーされます。 削除するページのページ番号を入力し、カンマで区切ります。 カンマの後にスペースを入力しないでください。
4. 次に、「OK」をクリックして続行します。

もちろん、このマクロを使用して現在のページを削除することもできます。 ページ番号を入力するだけです。

腐敗があなたを止めさせないでください

データ災害が発生すると、それはあなたの毎日の仕事を遅くすることは確実であり、あなたは追加のcを負担しなければなりませんost 同様に。 データが安全で健全であることを確認するには、 ドキュメントの損傷 修理ツール。

著者紹介：

Vera Chenは、のデータ復旧の専門家です。 DataNumen、Inc。は、以下を含むデータ復旧技術の世界的リーダーです。 Excelを修正 and pdf ソフトウェア製品を修理します。 詳細については、次のWebサイトをご覧ください。 WWW。datanumen.com