2 rýchle dávkové spôsoby, ako odstrániť viac záložiek v dokumente Word

V tomto článku vám chceme poskytnúť dva rýchle spôsoby hromadného odstránenia viacerých záložiek v dokumente Word.

Za normálnych okolností môžete v dokumente Word pridať alebo odstrániť jednu prekážku bez akýchkoľvek prekážok. Pokiaľ však ide o viac záložiek, môžete cítiť, že máte zviazané ruky.

Našťastie je v programe Word výkonný nástroj, ktorým je editor VBA. Preto použijeme makrá, ktoré vám pomôžu hromadne odstrániť viac záložiek v dokumente.

Metóda 1: Dávkové odstránenie všetkých záložiek v dokumente

1. V prvom rade spustíte editor VBA vo Worde stlačením klávesov „Alt+F11“.
2. Ďalej na ľavom paneli „Projekt“ kliknite na „Normálny“.
3. Potom kliknite na kartu „Vložiť“ a v jej ponuke vyberte možnosť „Modul“.
4. Modul otvoríte dvojitým kliknutím.
5. Teraz tam vložte nasledujúce kódy:

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. Potom kliknite na tlačidlo „Spustiť“.
7. Ďalej dostanete dotazovacie políčko. A môžete vidieť celkový počet záložiek v aktuálnom dokumente. Kliknutím na „Áno“ ich odstránite všetky, alebo „Nie“ na ukončenie makra.
8. Ak zvolíte možnosť „Áno“, dostanete správu, ako je uvedené nižšie:

Metóda 2: Dávkové odstránenie všetkých záložiek vo výbere

Je pravda, že existujú aj prípady, keď musíte odstrániť niekoľko záložiek, ale niektoré zachovať. Podobne spustíme makro na výber, aby sme dokončili prácu.

1. Ak chcete začať, zopakujte vyššie uvedené kroky na inštaláciu a spustenie makra.
2. Nezabudnite nahradiť makro týmto:

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. Pred spustením makra musíte vykonať výber z rozsahu obsahu.
4. A v procese vykonávania kódov dostanete rovnaké dve schránky správ zobrazené v metóde 2.

Výsledkom bude, že vo výbere budú odstránené iba záložky.

Pripravte sa na poškodenie dokumentu

Strata dát sa môže stať každému kedykoľvek. A jeho nepredvídateľnosť nás núti riskovať, že nenarazíme na smolu. Apropo téma k opraviť docx, nikdy vám nemôže chýbať výber účinného nástroja na opravu vopred.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane xls oprava a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S