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. След това щракнете върху бутона "Run".
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