2 szybkie sposoby grupowego usuwania wielu zakładek w dokumencie programu Word

W tym artykule chcemy przedstawić dwa szybkie sposoby zbiorczego usuwania wielu zakładek w dokumencie programu Word.

Zwykle możesz dodać lub usunąć pojedynczą zakładkę w dokumencie programu Word bez żadnych przeszkód. Jednak w przypadku wielu zakładek możesz mieć związane ręce.

Na szczęście w programie Word jest potężne narzędzie, jakim jest edytor VBA. Dlatego użyjemy makr, aby pomóc Ci w zbiorczym usuwaniu wielu zakładek z dokumentu.

Metoda 1: Wsadowe usuwanie wszystkich zakładek w dokumencie

1. Przede wszystkim należy wywołać edytor VBA w programie Word, naciskając kombinację klawiszy „Alt+F11”.
2. Następnie w lewym panelu „Projekt” kliknij „Normalny”.
3. Następnie kliknij zakładkę „Wstaw” i wybierz z menu „Moduł”.
4. Kliknij dwukrotnie, aby otworzyć moduł.
5. Teraz wklej tam następujące kody:

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. Następnie kliknij przycisk „Uruchom”.
7. Następnie otrzymasz okno z pytaniem. Możesz zobaczyć całkowitą liczbę zakładek w bieżącym dokumencie. Kliknij „Tak”, aby je wszystkie usunąć lub „Nie”, aby wyjść z makra.
8. Jeśli wybierzesz „Tak”, otrzymasz wiadomość taką jak poniżej:

Metoda 2: Wsadowe usuwanie wszystkich zakładek w zaznaczeniu

Trzeba przyznać, że są też chwile, kiedy trzeba usunąć kilka zakładek, ale niektóre zachować nienaruszone. Podobnie uruchomimy makro na zaznaczeniu, aby wykonać zadanie.

1. Na początek powtórz powyższe kroki, aby zainstalować i uruchomić makro.
2. Pamiętaj, aby zamienić makro na to:

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. Przed uruchomieniem makra należy dokonać wyboru obejmującego zakres treści.
4. A w trakcie wykonywania kodów otrzymasz te same 2 okna komunikatów, co w metodzie 1.

W rezultacie będziesz mieć usunięte tylko zakładki z zaznaczenia.

Przygotuj się na uszkodzenie dokumentów

Utrata danych może przydarzyć się każdemu w dowolnym momencie. A jego nieprzewidywalność sprawia, że ​​ryzykujemy, że nie wpadniemy w pecha. Mówiąc o temacie napraw docx, nigdy nie możesz przegapić wcześniejszego wybrania skutecznego narzędzia do naprawy.

Wprowadzenie autora:

Vera Chen jest ekspertem w dziedzinie odzyskiwania danych w DataNumen, Inc., która jest światowym liderem w technologiach odzyskiwania danych, w tym naprawa xls i pdf oprogramowanie do naprawy. po więcej informacji odwiedź www.datanumen.com