2 modi rapidi per eliminare in batch più segnalibri nel documento di Word

In questo articolo, vogliamo fornirti due modi rapidi per eliminare in batch più segnalibri nel tuo documento di Word.

Normalmente puoi aggiungere o eliminare un singolo segnalibro nel documento di Word senza alcun ostacolo. Tuttavia, quando si tratta di più segnalibri, potresti sentire le mani legate.

Fortunatamente, c'è un potente strumento in Word che è l'editor VBA. Pertanto, utilizzeremo le macro per aiutarti a rimuovere in batch più segnalibri in un documento.

Metodo 1: Elimina in batch tutti i segnalibri in un documento

1. Innanzitutto, apri l'editor VBA in Word premendo "Alt + F11".
2. Avanti sul pannello "Progetto" a sinistra, fai clic su "Normale".
3. Quindi fai clic sulla scheda "Inserisci" e scegli "Modulo" nel suo menu.
4. Fare doppio clic per aprire il modulo.
5. Ora incolla i seguenti codici lì:

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. Quindi fare clic sul pulsante "Esegui".
7. Successivamente otterrai una casella di richiesta. E puoi vedere il numero totale di segnalibri nel documento corrente. Fare clic su "Sì" per eliminarli tutti o su "No" per uscire dalla macro.
8. Se scegli "Sì", riceverai un messaggio come di seguito:

Metodo 2: Elimina in batch tutti i segnalibri in una selezione

Certo, ci sono anche momenti in cui devi rimuovere diversi segnalibri ma mantenerne alcuni intatti. Allo stesso modo, eseguiremo una macro su una selezione per portare a termine il lavoro.

1. Per iniziare, ripeti i passaggi precedenti per installare ed eseguire una macro.
2. Ricorda di sostituire la macro con questa:

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. Prima di eseguire la macro, è necessario effettuare una selezione su un intervallo di contenuti.
4. E nel processo di esecuzione dei codici, riceverai le stesse 2 finestre di messaggio mostrate nel metodo 1.

Il risultato è che verranno rimossi solo i segnalibri nella selezione.

Preparati alla corruzione dei documenti

La perdita di dati può accadere a chiunque in qualsiasi momento. E la sua imprevedibilità ci fa rischiare di non incappare nella sfortuna. Parlando dell'argomento a riparare docx, non puoi mai perdere la scelta anticipata di uno strumento di riparazione efficiente.

Introduzione dell'autore:

Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui riparazione xl and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com