Kaip greitai ištrinti kelis puslapius „Word“ dokumente naudojant VBA

Šiame straipsnyje mes sutelksime dėmesį į tai, kaip parodyti, kaip ištrinti kelis „Word“ dokumento puslapius naudojant VBA.

Rengiant dokumentą nuolat reikia atlikti pakeitimus. Turinio puslapių trynimas yra toks pat būtinas, kaip ir kiti pakeitimai. Pašalinti nereikalingą tekstą yra paprasta. Dauguma žmonių pasirenka pasirinkti elementą ir paspausti „Ištrinti“ arba „Backspace“.

Tai tikrai suteiks jums tai, ko norite. Tačiau yra galimybė tai padaryti greičiau. Be to, jūs praleidžiate pasirinkimo veiksmą ir vienu metu ištrinate kelis puslapius. Patrauklus būdas yra paleisti Word makrokomandą.

Ištrinti dabartinį puslapį

Tiems, kurie nemėgsta pasirinkti įvairių tekstų, tai gali būti jūsų palaima. Pirmiausia parodykime, kaip ištrinti dabartinį puslapį naudojant VBA.

1. Norėdami pradėti, užveskite žymeklį ant puslapio, kurį norite ištrinti.
2. Atidarykite VBA redaktorių „Word“ spustelėdami skirtuką „Kūrėjas“, tada „Visual Basic“. Jei skirtukas „Kūrėjas“ dar nepasiekiamas juostelėje, paspauskite „Alt+ F11“.
3. Antra, spustelėkite „Įprastas“.
4. Tada spustelėkite „Įterpti“ ir tame meniu pasirinkite „Modulis“.
5. Atidarykite naują modulį dukart spustelėdami.
6. Ir įklijuokite šiuos kodus:

Sub DeleteCurrentPage()
  Dim objDoc As Document
 
  ' Initialize
  Set objDoc = ActiveDocument
 
  ' Delete current page.
  objDoc.Bookmarks("\Page").Range.Delete
End Sub

7. Galiausiai spustelėkite mygtuką „Vykdyti“ arba paspauskite „F5“.

Ištrinti kelis puslapius

1. Norėdami įdiegti ir paleisti makrokomandą, atlikite aukščiau nurodytus veiksmus.
2. Pakeiskite makrokomandą šia:

Sub DeletePagesInDoc()
  Dim objRange As Range
  Dim strPage As String
  Dim objDoc As Document
  Dim nSplitItem As Long

  Application.ScreenUpdating = False
 
  ' Initialize and enter page numbers of pages to be deleted.
  Set objDoc = ActiveDocument
  strPage = InputBox("Enter the page numbers of pages to be deleted: " & vbNewLine & _
            "use comma to separate numbers", "Delete Pages", "For example: 1,3")
  nSplitItem = UBound(Split(strPage, ","))

  ' Find specified pages and highlight their contents.
  For nSplitItem = nSplitItem To 0 Step -1
    With ActiveDocument
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=Split(strPage, ",")(nSplitItem)
      Set objRange = .Bookmarks("\Page").Range
      objRange.Delete
    End With
  Next nSplitItem
 
  Application.ScreenUpdating = True
End Sub

3. Vykdant makrokomandą suaktyvinamas įvesties laukelis. Įveskite norimų ištrinti puslapių puslapių numerius ir atskirkite juos kableliais. Nerašykite tarpo po kablelio.
4. Tada spustelėkite „Gerai“, kad tęstumėte.

Žinoma, galite naudoti šią makrokomandą norėdami ištrinti dabartinį puslapį. Tiesiog įveskite puslapio numerį.

Neleiskite korupcijai jūsų sustabdyti

Kai įvyksta duomenų katastrofa, ji neabejotinai sulėtina jūsų kasdienį darbą ir jums teks patirti papildomų išlaidų. Norėdami užtikrinti savo duomenų saugumą, geriau susisiekite su... doc žala remonto įrankis.

Autoriaus įvadas:

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