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.

В результате у вас будут удалены только закладки в выборе.

Будьте готовы к порче документов

Потеря данных может случиться с кем угодно в любое время. И его непредсказуемость заставляет рискнуть, чтобы не нарваться на невезение. Говоря на тему к восстановить документ, вы никогда не пропустите выбор эффективного инструмента для ремонта заранее.

Об авторе:

Вера Чен — эксперт по восстановлению данных в DataNumen, Inc., которая является мировым лидером в области технологий восстановления данных, включая xls ремонт и pdf ремонт программных продуктов. Для получения дополнительной информации посетите www.datanumen.com