2 raske måter å batchslette flere bokmerker i Word-dokumentet ditt

I denne artikkelen ønsker vi å gi deg to raske måter å batchslette flere bokmerker i Word-dokumentet.

Normalt kan du legge til eller slette et enkelt bokmerke i Word-dokument uten noen hindring. Men når det kommer til flere bokmerker, kan du føle at hendene dine er bundet.

Heldigvis finnes det et kraftig verktøy i Word som er VBA-editoren. Derfor vil vi bruke makroer for å hjelpe deg med å batchfjerne flere bokmerker i et dokument.

Metode 1: Batch-slett alle bokmerker i et dokument

1. Først og fremstost, start VBA-editoren i Word ved å trykke "Alt+ F11".
2. Neste på venstre "Prosjekt"-panel, klikk på "Normal".
3. Klikk deretter på "Sett inn"-fanen og velg "Modul" på menyen.
4. Dobbeltklikk for å åpne modulen.
5. Lim inn følgende koder der:

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. Klikk deretter på "Kjør"-knappen.
7. Deretter får du en spørreboks. Og du kan se det totale antallet bokmerker i gjeldende dokument. Klikk "Ja" for å slette dem alle, eller "Nei" for å avslutte makroen.
8. Hvis du velger "Ja", vil du motta en melding som nedenfor:

Metode 2: Batch-slett alle bokmerker i et utvalg

Riktignok er det også tider hvor du må fjerne flere bokmerker, men beholde noen intakte. På samme måte vil vi kjøre en makro på et utvalg for å få jobben gjort.

1. Til start av, gjenta trinnene ovenfor for å installere og kjøre en makro.
2. Husk å erstatte makro med denne:

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. Før du kjører makroen, skal du foreta et utvalg over en rekke innhold.
4. Og i prosessen med å utføre koder, vil du motta de samme 2 meldingsboksene som vist i metode 1.

Resultatet er at du bare vil få fjernet bokmerker i utvalget.

Gjør deg klar for dokumentkorrupsjon

Datatap kan skje med hvem som helst når som helst. Og dens uforutsigbarhet gjør at vi tar sjansen på å ikke løpe inn i uflaksen. Apropos temaet til reparere docx, kan du aldri gå glipp av å velge et effektivt reparasjonsverktøy på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls reparasjon og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med