2 moduri rapide de a șterge în lot mai multe marcaje din documentul Word

În acest articol, dorim să vă oferim două moduri rapide de a șterge în serie mai multe marcaje din documentul Word.

În mod normal, puteți adăuga sau șterge un singur marcaj în documentul Word fără niciun obstacol. Cu toate acestea, când vine vorba de mai multe marcaje, s-ar putea să simți că mâinile tale sunt legate.

Din fericire, există un instrument puternic în Word, care este editorul VBA. Prin urmare, vom folosi macrocomenzi pentru a vă ajuta să eliminați mai multe marcaje dintr-un document.

Metoda 1: Ștergeți în lot toate marcajele dintr-un document

1. În primul rând, inițiați editorul VBA din Word apăsând „Alt+F11”.
2. Apoi, în panoul din stânga „Proiect”, faceți clic pe „Normal”.
3. Apoi faceți clic pe fila „Inserare” și alegeți „Modul” din meniul său.
4. Faceți dublu clic pentru a deschide modulul.
5. Acum lipiți următoarele coduri acolo:

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. Apoi faceți clic pe butonul „Run”.
7. În continuare veți primi o casetă de întrebări. Și puteți vedea numărul total de marcaje din documentul curent. Faceți clic pe „Da” pentru a le șterge pe toate sau „Nu” pentru a ieși din macrocomanda.
8. Dacă alegeți „Da”, veți primi un mesaj precum mai jos:

Metoda 2: Ștergeți în lot toate marcajele dintr-o selecție

Desigur, există și momente în care trebuie să eliminați mai multe marcaje, dar să păstrați unele intacte. În mod similar, vom rula o macrocomandă pe o selecție pentru a finaliza treaba.

1. Pentru început, repetați pașii de mai sus pentru a instala și rula o macrocomandă.
2. Nu uitați să înlocuiți macrocomanda cu aceasta:

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. Înainte de a rula macro-ul, trebuie să faceți o selecție într-un interval de conținut.
4. Și în procesul de executare a codurilor, veți primi aceleași 2 casete de mesaje prezentate în metoda 1.

Rezultatul este că veți avea doar marcajele din selecție eliminate.

Pregătește-te pentru corupția documentelor

Pierderea datelor se poate întâmpla oricui oricând. Iar imprevizibilitatea sa ne face să riscăm să nu întâlnim ghinionul. Apropo de subiect la reparare docx, nu puteți rata niciodată să alegeți un instrument eficient de reparare în avans.

Introducerea autorului:

Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv reparare xls și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com