Word文書内の複数のブックマークをバッチ削除する2つの簡単な方法

この記事では、Word文書内の複数のブックマークをバッチ削除するXNUMXつの簡単な方法を提供します。

通常、Word文書でXNUMXつのブックマークを障害なく追加または削除できます。 ただし、複数のブックマークになると、手が縛られているように感じる場合があります。

幸い、WordにはVBAエディターである強力なツールがあります。 したがって、マクロを使用して、ドキュメント内の複数のブックマークをバッチで削除できるようにします。

方法1：ドキュメント内のすべてのブックマークをバッチ削除する

1. まず最初に、「Alt + F11」を押してWordのVBAエディターを起動します。
2. 次に、左側の「プロジェクト」パネルで、「通常」をクリックします。
3. 次に、「挿入」タブをクリックし、メニューから「モジュール」を選択します。
4. ダブルクリックしてモジュールを開きます。
5. 次に、次のコードをそこに貼り付けます。

Sub DeleteAllBookmarksInDoc()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
  Dim objDoc As Document
 
  Application.ScreenUpdating = False
 
  Set objDoc = ActiveDocument
  nBookmark = objDoc.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this document?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In objDoc.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All bookmarks in this document have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

6. 次に、「実行」ボタンをクリックします。
7. 次に、質問ボックスが表示されます。 また、現在のドキュメントのブックマークの総数を確認できます。 「はい」をクリックしてすべてを削除するか、「いいえ」をクリックしてマクロを終了します。
8. 「はい」を選択すると、次のようなメッセージが表示されます。

方法2：選択範囲内のすべてのブックマークをバッチ削除する

確かに、いくつかのブックマークを削除しなければならない場合もありますが、いくつかはそのままにしておきます。 同様に、選択範囲に対してマクロを実行して、ジョブを実行します。

1. まず、上記の手順を繰り返してマクロをインストールし、実行してください。
2. マクロを次のものに置き換えることを忘れないでください。

Sub DeleteAllBookmarksInSelection()
  Dim objBookmark As Bookmark
  Dim nBookmark As Integer
  Dim strButtonValue As String
 
  Application.ScreenUpdating = False
 
  nBookmark = Selection.Bookmarks.Count
  If nBookmark > 0 Then
    strButtonValue = MsgBox("Do you want to remove all " & nBookmark & " bookmark(s) in this selection?", vbYesNo)
    If strButtonValue = vbYes Then
      For Each objBookmark In Selection.Bookmarks
        objBookmark.Delete
      Next objBookmark
      MsgBox ("All " & nBookmark & " bookmark(s) in this selection have been deleted.")
    Else
      Exit Sub
    End If
  End If
 
  Application.ScreenUpdating = True
End Sub

3. マクロを実行する前に、コンテンツの範囲を選択する必要があります。
4. また、コードを実行する過程で、方法2と同じ1つのメッセージボックスが表示されます。

その結果、選択範囲内のブックマークのみが削除されます。

ドキュメントの破損に備える

データの損失はいつでも誰にでも起こり得ます。 そして、その予測不可能性により、私たちは不運に遭遇しないチャンスをつかむことができます。 トピックと言えば docxを修復します、事前に効率的な修復ツールを選ぶことを見逃すことはありません。

著者紹介：

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