2 швидкі способи групового видалення кількох закладок у документі Word

У цій статті ми хочемо надати вам два швидкі способи групового видалення кількох закладок у документі Word.

Зазвичай ви можете додавати або видаляти одну закладку в документі Word без будь-яких перешкод. Однак, коли мова йде про декілька закладок, ви можете відчути, що у вас зв’язані руки.

На щастя, в Word є потужний інструмент, який є редактором VBA. Тому ми будемо використовувати макроси, щоб допомогти вам групово видаляти декілька закладок у документі.

Спосіб 1: Пакетне видалення всіх закладок у документі

1. Перш за все, викличте редактор VBA у Word, натиснувши «Alt+F11».
2. Далі на лівій панелі «Проект» натисніть «Звичайний».
3. Потім натисніть вкладку «Вставити» та виберіть «Модуль» у меню.
4. Двічі клацніть, щоб відкрити модуль.
5. Тепер вставте туди такі коди:

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. Потім натисніть кнопку «Виконати».
7. Далі ви отримаєте вікно запитання. І ви можете побачити загальну кількість закладок у поточному документі. Натисніть "Так", щоб видалити їх усі, або "Ні", щоб вийти з макросу.
8. Якщо ви оберете “Так”, ви отримаєте повідомлення, як показано нижче:

Спосіб 2: Пакетне видалення всіх закладок у виділенні

Слід визнати, що іноді доводиться видаляти кілька закладок, але зберігати цілі. Подібним чином ми виконаємо макрос на виділенні, щоб виконати роботу.

1. Щоб почати, повторіть наведені вище кроки, щоб встановити та запустити макрос.
2. Не забудьте замінити макрос цим:

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. Перш ніж запускати макрос, ви повинні зробити вибір із діапазону вмісту.
4. І в процесі виконання кодів ви отримаєте ті самі 2 вікна повідомлень, показані в способі 1.

У результаті у вас буде видалено лише закладки з вибраного.

Будьте готові до пошкодження документів

Втрата даних може трапитися з ким завгодно в будь-який час. І його непередбачуваність змушує нас ризикувати, не натрапивши на невдачу. Говорячи про тему до ремонт docx, ви ніколи не можете пропустити вибір ефективного інструменту для ремонту заздалегідь.

Вступ автора:

Віра Чень є експертом з відновлення даних у DataNumen, Inc., яка є світовим лідером у галузі технологій відновлення даних, в тому числі xls ремонт та pdf ремонт програмних продуктів. Для отримання додаткової інформації відвідайте WWW.datanumen.com