2 Mabilis na Paraan sa Batch na Magtanggal ng Maramihang Mga Bookmark sa Iyong Word Document

Sa artikulong ito, gusto naming bigyan ka ng dalawang mabilis na paraan upang i-batch ang pagtanggal ng maramihang mga bookmark sa iyong dokumento ng Word.

Karaniwan maaari kang magdagdag o magtanggal ng isang bookmark sa Word na dokumento nang walang anumang balakid. Gayunpaman, pagdating sa maraming bookmark, maaari mong maramdaman na nakatali ang iyong mga kamay.

Sa kabutihang palad, mayroong isang makapangyarihang tool sa Word na ang VBA editor. Samakatuwid, gagamit kami ng mga macro upang matulungan kang mag-batch na mag-alis ng maraming bookmark sa isang dokumento.

Paraan 1: Batch Tanggalin ang Lahat ng Mga Bookmark sa isang Dokumento

1. Una sa lahat, tawagin ang VBA editor sa Word sa pamamagitan ng pagpindot sa "Alt + F11".
2. Susunod sa kaliwang panel na "Proyekto", mag-click sa "Normal".
3. Pagkatapos ay i-click ang tab na "Insert" at piliin ang "Module" sa menu nito.
4. I-double click para buksan ang module.
5. Ngayon i-paste ang sumusunod na mga code doon:

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. Pagkatapos i-click ang pindutang "Run".
7. Susunod na makakakuha ka ng isang kahon ng pagtatanong. At makikita mo ang kabuuang bilang ng mga bookmark sa kasalukuyang dokumento. I-click ang “Oo” para tanggalin silang lahat, o “Hindi” para lumabas sa macro.
8. Kung pipiliin mo ang "Oo", makakatanggap ka ng mensahe tulad ng nasa ibaba:

Paraan 2: Batch Tanggalin ang Lahat ng Mga Bookmark sa isang Pinili

Totoo, may mga pagkakataon din na kailangan mong mag-alis ng ilang bookmark ngunit panatilihing buo ang ilan. Katulad nito, magpapatakbo kami ng macro sa isang seleksyon upang magawa ang trabaho.

1. Para magsimula, ulitin ang mga hakbang sa itaas upang i-install at patakbuhin ang isang macro.
2. Tandaan na palitan ang macro ng isang ito:

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. Bago patakbuhin ang macro, dapat kang pumili sa isang hanay ng mga nilalaman.
4. At sa proseso ng pagpapatupad ng mga code, matatanggap mo ang parehong 2 kahon ng mensahe na ipinapakita sa paraan 1.

Ang resulta ay magkakaroon ka lang ng mga bookmark sa napiling inalis.

Maghanda para sa Korapsyon sa Dokumento

Maaaring mangyari ang pagkawala ng data sa sinuman anumang oras. At ang unpredictability nito ay gumagawa sa atin ng pagkakataon na hindi tumakbo sa malas. Speaking of the topic to pag-aayos ng docx, hindi mo mapapalampas ang pagpili ng isang mahusay na tool sa pag-aayos nang maaga.

Panimula ng May-akda:

Si Vera Chen ay isang dalubhasa sa pagbawi ng data sa DataNumen, Inc., na pinuno ng mundo sa mga teknolohiya sa pagbawi ng data, kasama ang pag-aayos ng xls at pdf pagkumpuni ng mga produktong software. Para sa karagdagang impormasyon pagbisita www.datanumen. Sa