Kuidas Wordi dokumendis VBA kaudu kiiresti mitut lehte kustutada

Selles artiklis keskendume sellele, kuidas VBA kaudu Wordi dokumendist mitu lehte kustutada.

Dokumendi koostamine nõuab pidevat kohandamist. Ja sisukordade kustutamine on sama vajalik kui muud muudatused. Kasutu teksti eemaldamine on lihtne. Enamik inimesi valib valiku ja seejärel vajutab kas „Kustuta“ või „Tagasilükke“.

See annab teile kindlasti selle, mida soovite. Kuid selleks on kiirem võimalus. Veelgi enam, jätate valikuetapi vahele ja kustutate mitu lehte korraga. Ahvatlev lähenemisviis on Wordi makro käivitamine.

Kustuta praegune leht

Neile, kes vihkavad tekstivalikut teha, võib see olla teie õnnistuseks. Kõigepealt näitame teile, kuidas praegust lehte VBA kaudu kustutada.

1. Alustuseks viige kursor lehele, mida soovite kustutada.
2. Avage Wordis VBA redaktor, klõpsates vahekaarti "Arendaja" ja seejärel "Visual Basic". Kui vahekaart „Arendaja” pole lindil veel saadaval, vajutage selle asemel klahvikombinatsiooni Alt+F11.
3. Teiseks klõpsake nuppu "Tavaline".
4. Seejärel klõpsake "Insert" ja valige selles menüüs "Moodul".
5. Avage uus moodul topeltklõpsuga.
6. Ja kleepige sinna järgmised koodid:

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

7. Lõpuks klõpsake nuppu "Käivita" või vajutage "F5".

Kustuta mitu lehte

1. Makro installimiseks ja käitamiseks järgige ülaltoodud samme.
2. Asendage makro selle makroga:

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. Makro käivitamine käivitab sisestuskasti. Sisestage kustutatavate lehtede leheküljenumbrid ja eraldage need komadega. Ärge sisestage koma järele tühikut.
4. Seejärel klõpsake jätkamiseks "OK".

Loomulikult saate seda makrot kasutada praeguse lehe kustutamiseks. Sisestage lihtsalt lehekülje number.

Ärge laske korruptsioonil teid peatada

Kui andmekatastroof juhtub, aeglustab see kindlasti teie igapäevast tööd ja peate kandma ka lisakulusid. Andmete turvalisuse tagamiseks on parem hankida abiline. doc kahju remonditööriist.

Autori sissejuhatus:

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