2 Cara Cepat untuk Menghapus Banyak Penanda dalam Dokumen Word Anda

Pada artikel ini, kami ingin memberi Anda dua cara cepat untuk menghapus banyak penanda dalam dokumen Word Anda.

Biasanya Anda dapat menambah atau menghapus satu penanda di dokumen Word tanpa hambatan apa pun. Namun, jika menyangkut beberapa bookmark, Anda mungkin merasa tangan Anda terikat.

Untungnya, ada alat yang ampuh di Word yaitu editor VBA. Oleh karena itu, kami akan menggunakan makro untuk membantu Anda menghapus banyak penanda dalam satu dokumen.

Metode 1: Hapus Batch Semua Bookmark dalam Dokumen

1. Pertama dan depanost, aktifkan editor VBA di Word dengan menekan "Alt + F11".
2. Selanjutnya di panel "Proyek" kiri, klik "Normal".
3. Kemudian klik tab "Sisipkan" dan pilih "Modul" di menunya.
4. Klik dua kali untuk membuka modul.
5. Sekarang tempel kode berikut di sana:

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. Kemudian klik tombol “Run”.
7. Selanjutnya Anda akan mendapatkan kotak permintaan. Dan Anda dapat melihat jumlah total bookmark dalam dokumen saat ini. Klik "Ya" untuk menghapus semuanya, atau "Tidak" untuk keluar dari makro.
8. Jika Anda memilih "Ya", Anda akan menerima pesan seperti di bawah ini:

Metode 2: Hapus Batch Semua Penanda dalam Pilihan

Memang, ada kalanya Anda harus menghapus beberapa bookmark tetapi beberapa tetap utuh. Demikian pula, kami akan menjalankan makro pada pilihan untuk menyelesaikan pekerjaan.

1. Untuk start nonaktif, ulangi langkah di atas untuk menginstal dan menjalankan makro.
2. Ingatlah untuk mengganti makro dengan yang ini:

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. Sebelum menjalankan makro, Anda harus membuat pilihan atas berbagai konten.
4. Dan dalam proses menjalankan kode, Anda akan menerima 2 kotak pesan yang sama seperti yang ditunjukkan pada metode 1.

Hasilnya adalah Anda hanya akan menghapus bookmark dalam pilihan tersebut.

Bersiaplah untuk Korupsi Dokumen

Kehilangan data bisa terjadi pada siapa saja kapan saja. Dan ketidakpastiannya membuat kita mengambil kesempatan untuk tidak mengalami kesialan. Berbicara tentang topik kepada perbaiki docx, Anda tidak akan pernah melewatkan memilih alat perbaikan yang efisien sebelumnya.

Pengantar Penulis:

Vera Chen adalah pakar pemulihan data di DataNumen, Inc., yang merupakan pemimpin dunia dalam teknologi pemulihan data, termasuk xls perbaikan ke pdf memperbaiki produk perangkat lunak. Untuk informasi lebih lanjut kunjungi www.datanumen.com