2 gyors módszer több könyvjelző csoportos törlésére a Word-dokumentumból

Ebben a cikkben két gyors módot szeretnénk kínálni több könyvjelző törlésére a Word-dokumentumban.

Általában minden akadály nélkül hozzáadhat vagy törölhet egyetlen könyvjelzőt a Word dokumentumban. Ha azonban több könyvjelzőről van szó, úgy érezheti, meg van kötve a keze.

Szerencsére a Wordben van egy hatékony eszköz, a VBA-szerkesztő. Ezért makrókat fogunk használni, hogy segítsünk több könyvjelző csoportos eltávolításában egy dokumentumban.

1. módszer: Kötegben törölje az összes könyvjelzőt egy dokumentumban

1. Első lépésként hívd meg a VBA szerkesztőt a Wordben az „Alt+F11” billentyűkombináció megnyomásával.
2. Ezután a bal oldali „Projekt” panelen kattintson a „Normál” gombra.
3. Ezután kattintson a „Beszúrás” fülre, és válassza a „Modul” menüt.
4. Kattintson duplán a modul megnyitásához.
5. Most illessze be a következő kódokat:

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. Ezután kattintson a „Futtatás” gombra.
7. Ezután kapsz egy kérdőívet. És láthatja a könyvjelzők teljes számát az aktuális dokumentumban. Kattintson az „Igen” gombra az összes törléséhez, vagy a „Nem” gombra a makró kilépéséhez.
8. Ha az „Igen” lehetőséget választja, az alábbihoz hasonló üzenetet fog kapni:

2. módszer: Az összes könyvjelző törlése egy kijelölésben

Igaz, vannak olyan esetek is, amikor több könyvjelzőt is el kell távolítani, de néhányat érintetlenül kell megőrizni. Hasonlóképpen egy makrót futtatunk a kijelölésen a munka elvégzéséhez.

1. Kezdéshez ismételje meg a fenti lépéseket a makró telepítéséhez és futtatásához.
2. Ne felejtse el lecserélni a makrót erre:

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. A makró futtatása előtt ki kell választania egy tartalomtartományt.
4. És a kódok végrehajtása során ugyanazt a 2 üzenetdobozt fogja kapni, mint az 1. módszernél.

Ennek eredményeként csak a kiválasztott könyvjelzők lesznek eltávolítva.

Készüljön fel a dokumentumok korrupciójára

Adatvesztés bárkivel bármikor előfordulhat. Kiszámíthatatlansága pedig megkockáztat, hogy ne essünk bele a balszerencsébe. A témáról szólva javítás docx, soha nem hiányozhat egy hatékony javítóeszköz előzetes kiválasztása.

Szerző Bevezetés:

Vera Chen adat-helyreállítási szakértő DataNumen, Inc., amely világelső az adat-helyreállítási technológiák területén, beleértve xls javítás és a pdf javító szoftvertermékek. További információért látogasson el www.datanumen.com