2 rychlé způsoby, jak dávkově odstranit více záložek v dokumentu Word

V tomto článku vám chceme poskytnout dva rychlé způsoby hromadného odstranění více záložek v dokumentu aplikace Word.

Normálně můžete přidat nebo odstranit jednu záložku v dokumentu aplikace Word bez jakýchkoli překážek. Pokud však jde o více záložek, můžete mít pocit, že máte svázané ruce.

Naštěstí ve Wordu existuje výkonný nástroj, kterým je editor VBA. Proto použijeme makra, která vám pomohou hromadně odstranit více záložek v dokumentu.

Metoda 1: Dávkové odstranění všech záložek v dokumentu

1. Nejprve a především spusťte editor VBA ve Wordu stisknutím kláves „Alt+F11“.
2. Dále na levém panelu „Projekt“ klikněte na „Normální“.
3. Poté klikněte na kartu „Vložit“ a v její nabídce vyberte „Modul“.
4. Dvojitým kliknutím otevřete modul.
5. Nyní tam vložte následující 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. Poté klikněte na tlačítko „Spustit“.
7. Dále dostanete krabici s dotazem. A můžete vidět celkový počet záložek v aktuálním dokumentu. Kliknutím na „Ano“ je všechny smažete, kliknutím na „Ne“ makro ukončíte.
8. Pokud zvolíte „Ano“, obdržíte následující zprávu:

Metoda 2: Dávkové odstranění všech záložek ve výběru

Je pravda, že jsou také chvíle, kdy musíte odstranit několik záložek, ale některé ponechat nedotčené. Podobně spustíme makro na výběru, abychom práci dokončili.

1. Chcete-li začít, opakujte výše uvedené kroky pro instalaci a spuštění makra.
2. Nezapomeňte nahradit 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. Před spuštěním makra musíte provést výběr z rozsahu obsahu.
4. A v procesu provádění kódů obdržíte stejné 2 zprávy jako v metodě 1.

Výsledkem je, že budou odstraněny pouze záložky ve výběru.

Připravte se na poškození dokumentů

Ztráta dat se může stát kdykoli komukoli. A jeho nepředvídatelnost nás nutí riskovat, abychom nenarazili na smůlu. Když už jsme u toho tématu opravit docx, nikdy nemůžete vynechat výběr účinného nástroje pro opravu předem.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně xls oprava a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com