2 hitra načina skupinskega brisanja več zaznamkov v dokumentu Word

V tem članku vam želimo ponuditi dva hitra načina za skupinsko brisanje več zaznamkov v Wordovem dokumentu.

Običajno lahko brez kakršnih koli ovir dodate ali izbrišete en zaznamek v dokumentu Word. Ko pa gre za več zaznamkov, se boste morda počutili zvezane roke.

Na srečo je v Wordu zmogljivo orodje, to je urejevalnik VBA. Zato bomo uporabili makre za pomoč pri skupinskem odstranjevanju več zaznamkov v dokumentu.

1. način: paketno brisanje vseh zaznamkov v dokumentu

1. Najprej in predvsem pokličite urejevalnik VBA v Wordu s pritiskom na »Alt + F11«.
2. Nato na levi plošči »Projekt« kliknite »Normalno«.
3. Nato kliknite zavihek »Vstavi« in v njegovem meniju izberite »Modul«.
4. Dvokliknite, da odprete modul.
5. Sedaj tja prilepite naslednje kode:

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. Nato kliknite gumb »Zaženi«.
7. Nato boste dobili polje za vpraševanje. Ogledate si lahko skupno število zaznamkov v trenutnem dokumentu. Kliknite »Da«, da jih vse izbrišete, ali »Ne« za izhod iz makra.
8. Če izberete »Da«, boste prejeli sporočilo, kot je spodaj:

2. način: Paketno brisanje vseh zaznamkov v izboru

Res je, da morate včasih odstraniti več zaznamkov, nekatere pa ohraniti nedotaknjene. Podobno bomo zagnali makro na izboru, da bomo opravili delo.

1. Za začetek ponovite zgornje korake za namestitev in zagon makra.
2. Ne pozabite zamenjati makra s tem:

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. Preden zaženete makro, morate izbrati vrsto vsebine.
4. V procesu izvajanja kod boste prejeli isti 2 sporočilni polji, prikazani v 1. metodi.

Rezultat tega je, da boste v izboru odstranili samo zaznamke.

Pripravite se na poškodbe dokumentov

Izguba podatkov se lahko kadar koli zgodi vsakomur. In njegova nepredvidljivost nas prisili, da tvegamo, da ne naletimo na smolo. Ko smo že pri temi popravilo docx, nikoli ne zgrešite z izbiro učinkovitega orodja za popravilo vnaprej.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z xls popravilo in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com