2 kiiret viisi mitme järjehoidja kustutamiseks oma Wordi dokumendis

Selles artiklis tahame pakkuda teile kahte kiiret viisi, kuidas Wordi dokumendis mitut järjehoidjat kustutada.

Tavaliselt saate Wordi dokumenti lisada või kustutada ühe järjehoidja ilma takistusteta. Kui aga tegemist on mitme järjehoidjaga, võite tunda, et teie käed on seotud.

Õnneks on Wordis võimas tööriist, milleks on VBA redaktor. Seetõttu kasutame makrosid, mis aitavad teil dokumendist mitu järjehoidjat partiidena eemaldada.

1. meetod: kustutage kõik dokumendis olevad järjehoidjad

1. Esiteks ja eeskättost, käivitage Wordis VBA redaktor, vajutades "Alt + F11".
2. Järgmisena klõpsake vasakpoolsel paneelil "Projekt" nuppu "Tavaline".
3. Seejärel klõpsake vahekaarti "Sisesta" ja valige selle menüüst "Moodul".
4. Mooduli avamiseks topeltklõpsake.
5. Nüüd kleepige sinna järgmised koodid:

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. Seejärel klõpsake nuppu "Käivita".
7. Järgmisena saate küsimise kasti. Ja näete praeguses dokumendis olevate järjehoidjate koguarvu. Nende kõigi kustutamiseks klõpsake "Jah" või makrost väljumiseks "Ei".
8. Kui valite "Jah", saate järgmise teate:

2. meetod: kõigi valiku järjehoidjate partii kustutamine

Tõsi küll, tuleb ette ka olukordi, kus tuleb mitu järjehoidjat eemaldada, kuid osa neist puutumata jätta. Samamoodi käivitame töö tegemiseks valikul makro.

1. Et start välja lülitatud, korrake ülaltoodud samme makro installimiseks ja käivitamiseks.
2. Ärge unustage asendada makro selle makroga:

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. Enne makro käivitamist peate tegema valiku sisuvahemikus.
4. Ja koodide täitmise käigus saate samad 2 teatekasti, mis on näidatud meetodis 1.

Tulemuseks on see, et valikust eemaldatakse ainult järjehoidjad.

Valmistuge dokumentide korruptsiooniks

Andmete kadu võib juhtuda igaühega igal ajal. Ja selle ettearvamatus paneb meid kasutama võimalust, et mitte sattuda ebaõnne. Teemast rääkides remont docx, ei saa kunagi jätta kasutamata tõhusat remonditööriista eelnevalt valimata.

Autori sissejuhatus:

Vera Chen on andmete taastamise ekspert DataNumen, Inc., mis on maailmas juhtiv andmete taastamise tehnoloogiate, sealhulgas xls remont ja pdf tarkvaratooted. Lisateabe saamiseks külastage www.datanumenCom