2 brza načina za grupno brisanje više oznaka u Word dokumentu

U ovom članku želimo vam pružiti dva brza načina za grupno brisanje više oznaka u vašem Word dokumentu.

Obično možete dodati ili izbrisati jednu oznaku u Word dokumentu bez ikakvih prepreka. Međutim, kada je u pitanju više oznaka, možete osjetiti da su vam ruke vezane.

Srećom, u Wordu postoji moćan alat koji je VBA editor. Stoga ćemo koristiti makroe kako bismo vam pomogli da grupno uklonite više oznaka u dokumentu.

Metoda 1: Grupno brisanje svih obeleživača u dokumentu

1. Prvo i osnovnoost, pozovite VBA editor u Wordu pritiskom na “Alt+ F11”.
2. Zatim na lijevoj ploči “Projekt” kliknite na “Normalno”.
3. Zatim kliknite na karticu "Insert" i izaberite "Module" na njenom meniju.
4. Dvaput kliknite da otvorite modul.
5. Sada tamo zalijepite sljedeće kodove:

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. Zatim kliknite na dugme „Pokreni“.
7. Zatim ćete dobiti kutiju sa upitima. I možete vidjeti ukupan broj oznaka u trenutnom dokumentu. Kliknite "Da" da ih sve izbrišete ili "Ne" da izađete iz makroa.
8. Ako odaberete „Da“, dobićete poruku kao što je dole:

Metoda 2: Grupno brisanje svih obeleživača u selekciji

Doduše, postoje slučajevi kada morate ukloniti nekoliko oznaka, ali neke zadržati netaknutim. Slično tome, pokrenut ćemo makro na odabiru kako bismo obavili posao.

1. Za start isključen, ponovite gore navedene korake da instalirate i pokrenete makro.
2. Ne zaboravite da zamenite makro sa ovim:

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. Prije pokretanja makroa, izvršit ćete izbor niza sadržaja.
4. I u procesu izvršavanja kodova, dobićete ista 2 okvira za poruke prikazana u metodu 1.

Rezultat je da ćete imati uklonjene samo oznake u izboru.

Pripremite se za oštećenje dokumenata

Gubitak podataka može se dogoditi bilo kome bilo kada. A njegova nepredvidivost nas tjera da rizikujemo da ne naletimo na lošu sreću. Govoreći o temi do popraviti docx, nikada ne možete propustiti da unaprijed odaberete efikasan alat za popravku.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući xls repair i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com