2 greiti būdai, kaip grupiniu būdu ištrinti kelias žymes „Word“ dokumente

Šiame straipsnyje norime jums pateikti du greitus būdus, kaip paketiniu būdu ištrinti kelias žymes „Word“ dokumente.

Paprastai Word dokumente galite pridėti arba ištrinti vieną žymę be jokių kliūčių. Tačiau kai kalbama apie kelias žymes, galite jausti, kad jūsų rankos yra surištos.

Laimei, „Word“ yra galingas įrankis, kuris yra VBA redaktorius. Todėl naudosime makrokomandas, kad padėtume jums paketu pašalinti kelias žymes iš dokumento.

1 būdas: ištrinkite visas dokumente esančias žymes

1. Visų pirma, iškvieskite VBA redaktorių programoje „Word“ paspausdami „Alt“ + F11.
2. Toliau kairiajame skydelyje „Projektas“ spustelėkite „Įprastas“.
3. Tada spustelėkite skirtuką „Įterpti“ ir jo meniu pasirinkite „Modulis“.
4. Dukart spustelėkite, kad atidarytumėte modulį.
5. Dabar įklijuokite šiuos kodus:

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. Tada spustelėkite mygtuką „Vykdyti“.
7. Tada gausite klausimo langelį. Ir jūs galite pamatyti bendrą žymių skaičių dabartiniame dokumente. Spustelėkite „Taip“, kad ištrintumėte juos visus, arba „Ne“, kad išeitumėte iš makrokomandos.
8. Jei pasirinksite „Taip“, gausite tokį pranešimą:

2 būdas: ištrinkite visas žymes iš pasirinkimo

Tiesa, taip pat kartais tenka pašalinti kelias žymes, tačiau kai kurias palikti nepažeistas. Panašiai vykdysime pasirinkimo makrokomandą, kad atliktume darbą.

1. Norėdami pradėti, pakartokite aukščiau nurodytus veiksmus, kad įdiegtumėte ir paleistumėte makrokomandą.
2. Nepamirškite pakeisti makrokomandos šia:

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. Prieš paleisdami makrokomandą, turite pasirinkti turinį.
4. Vykdydami kodus gausite tuos pačius 2 pranešimų laukelius, kaip parodyta 1 metode.

Dėl to bus pašalintos tik žymės iš pasirinkimo.

Pasiruoškite dokumentų korupcijai

Duomenų praradimas gali atsitikti bet kam bet kada. Ir jo nenuspėjamumas verčia mus rizikuoti, kad nepasiseks. Kalbant apie temą taisyti docx, niekada nepraleisite iš anksto išsirinkę efektyvų remonto įrankį.

Autoriaus įvadas:

Vera Chen yra duomenų atkūrimo ekspertė DataNumen, Inc., kuri yra pasaulyje duomenų atkūrimo technologijų lyderė, įskaitant xls remontas bei pdf programinės įrangos gaminių taisymas. Norėdami gauti daugiau informacijos, apsilankykite WWW.datanumen.com