2 Schnelle Möglichkeiten zum Stapeln Löschen mehrerer Lesezeichen in Ihrem Word-Dokument

In diesem Artikel möchten wir Ihnen zwei schnelle Möglichkeiten bieten, mehrere Lesezeichen in Ihrem Word-Dokument stapelweise zu löschen.

Normalerweise können Sie ein einzelnes Lesezeichen in einem Word-Dokument ohne Hindernisse hinzufügen oder löschen. Wenn es jedoch um mehrere Lesezeichen geht, haben Sie möglicherweise das Gefühl, dass Ihnen die Hände gebunden sind.

Glücklicherweise gibt es in Word ein leistungsstarkes Tool, den VBA-Editor. Daher verwenden wir Makros, mit denen Sie mehrere Lesezeichen in einem Dokument stapelweise entfernen können.

Methode 1: Alle Lesezeichen in einem Dokument stapelweise löschen

1. Als Erstes rufen Sie den VBA-Editor in Word mit der Tastenkombination „Alt+ F11“ auf.
2. Klicken Sie anschließend im linken Bereich "Projekt" auf "Normal".
3. Klicken Sie dann auf die Registerkarte "Einfügen" und wählen Sie "Modul" in seinem Menü.
4. Doppelklicken Sie, um das Modul zu öffnen.
5. Fügen Sie nun folgende Codes ein:

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. Klicken Sie dann auf die Schaltfläche "Ausführen".
7. Als nächstes erhalten Sie eine Fragebox. Und Sie können die Gesamtzahl der Lesezeichen im aktuellen Dokument sehen. Klicken Sie auf "Ja", um alle zu löschen, oder auf "Nein", um das Makro zu beenden.
8. Wenn Sie "Ja" wählen, erhalten Sie eine Nachricht wie die folgende:

Methode 2: Batch Löschen Sie alle Lesezeichen in einer Auswahl

Zugegeben, es gibt auch Zeiten, in denen Sie mehrere Lesezeichen entfernen müssen, aber einige intakt halten müssen. In ähnlicher Weise führen wir ein Makro für eine Auswahl aus, um die Aufgabe zu erledigen.

1. Um zu beginnen, wiederholen Sie die oben genannten Schritte, um ein Makro zu installieren und auszuführen.
2. Denken Sie daran, das Makro durch dieses zu ersetzen:

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. Bevor Sie das Makro ausführen, müssen Sie eine Auswahl über einen Bereich von Inhalten treffen.
4. Während der Ausführung von Codes erhalten Sie dieselben 2 Meldungsfelder wie in Methode 1.

Das Ergebnis ist, dass nur Lesezeichen in der Auswahl entfernt werden.

Machen Sie sich bereit für die Beschädigung von Dokumenten

Datenverlust kann jedem jederzeit passieren. Und seine Unvorhersehbarkeit lässt uns die Chance nutzen, nicht auf das Pech zu stoßen. Apropos Thema zu docx reparierenSie können es nie verpassen, im Voraus ein effizientes Reparaturwerkzeug auszuwählen.

Einführung des Autors:

Vera Chen ist eine Datenrettungsexpertin in DataNumen, Inc., das weltweit führend bei Datenwiederherstellungstechnologien ist, einschließlich xls reparieren und pdf Reparatur von Softwareprodukten. Für weitere Informationen besuchen Sie www.datanumen.com €XNUMX