Kako hitro izbrisati več strani v dokumentu Word prek VBA

V tem članku se bomo osredotočili na to, kako vam bomo pokazali, kako v dokumentu Word prek VBA izbrišete več strani.

Priprava osnutka dokumenta zahteva nenehno prilagajanje. Brisanje strani z vsebino je prav tako potrebno kot druge spremembe. Odstranjevanje neuporabnega besedila je preprosto. Večina ljudi se odloči za izbiro in nato pritisne tipko »Izbriši« ali »Backspace«.

To vam bo zagotovo prineslo tisto, kar želite. Vendar je to mogoče storiti hitreje. Še več, preskočite izbirni korak in izbrišete več strani hkrati. Privlačen pristop je zagon makra Word.

Izbriši trenutno stran

Za tiste, ki sovražijo izbiro med različnimi besedilnimi besedami, je to lahko vaš blagoslov. Najprej vam pokažemo, kako izbrišete trenutno stran prek VBA.

1. Za začetek postavite kazalec na stran, ki jo želite izbrisati.
2. Odprite urejevalnik VBA v Wordu, tako da kliknete jeziček »Razvijalec« in nato »Visual Basic«. Če zavihek »Razvijalec« še ni na voljo na traku, namesto tega pritisnite »Alt + F11«.
3. Drugič, kliknite »Običajno«.
4. Nato kliknite »Vstavi« in v tem meniju izberite »Modul«.
5. Dvokliknite nov modul.
6. In tam prilepite naslednje kode:

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

7. Na koncu kliknite gumb "Zaženi" ali pritisnite "F5".

Izbriši več strani

1. Za namestitev in zagon makra sledite zgornjim korakom.
2. Zamenjajte makro s tem:

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. Zagnani makro sproži vnosno polje. Vnesite številko strani, ki jo želite izbrisati, in jih ločite z vejico. Ne puščajte presledka za vejico.
4. Nato kliknite »V redu« za nadaljevanje.

Seveda lahko s tem makrom izbrišete trenutno stran. Preprosto vnesite številko strani.

Naj vas korupcija ne ustavi

Ko se zgodi podatkovna katastrofa, bo to zagotovo upočasnilo vaše vsakodnevno delo in morali boste nositi tudi dodatne stroške. Da bi zagotovili varnost svojih podatkov, je bolje, da si priskrbite doc škoda orodje za popravilo.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z popraviti Excel in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com