Kako brzo izbrisati više stranica u Word dokumentu putem VBA

U ovom članku ćemo se fokusirati na to da vam pokažemo kako da izbrišete više stranica u Word dokumentu putem VBA.

Izrada nacrta dokumenta zahtijeva stalne prilagodbe. Brisanje sadržaja je jednako neophodno kao i druge izmjene. Uklanjanje beskorisnog teksta je jednostavno. Većina ljudi bira da izvrši odabir, a zatim pritisne "Delete" ili "Backspace" kako bi to bilo dovoljno.

Ovo će vam sigurno dobiti ono što želite. Ali postoji brži za to. Štaviše, preskačete korak odabira i brišete više stranica odjednom. Privlačan pristup je pokretanje Word makroa.

Izbriši trenutnu stranicu

Za one koji mrze da biraju niz tekstova, ovo može biti vaš blagoslov. Prvo ćemo vam pokazati kako da izbrišete trenutnu stranicu putem VBA.

1. Za početak, stavite kursor na stranicu koju želite da izbrišete.
2. Otvorite VBA editor u Word-u tako što ćete kliknuti na karticu "Developer", a zatim na "Visual Basic". Ako kartica "Developer" još nije dostupna na traci, umjesto toga pritisnite "Alt+ F11".
3. Drugo, kliknite na "Normalno".
4. Zatim kliknite na “Insert” i odaberite “Module” na tom meniju.
5. Otvorite novi modul dvostrukim klikom.
6. I tamo zalijepite sljedeće kodove:

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

7. Na kraju, kliknite na dugme "Run" ili pritisnite "F5".

Izbriši više stranica

1. Slijedite gore navedene korake da instalirate i pokrenete makro.
2. Zamijenite makro sa ovim:

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. Pokretanje makroa će pokrenuti okvir za unos. Unesite broj stranica koje želite izbrisati i razdvojite ih pomoću zareza. Nemojte unositi razmak iza zareza.
4. Zatim kliknite na “OK” da nastavite.

Naravno, možete koristiti ovaj makro za brisanje trenutne stranice. Jednostavno unesite broj stranice.

Ne dozvolite da vas korupcija zaustavi

Kada se dogodi katastrofa s podacima, sigurno će usporiti vaš svakodnevni rad, a morate snositi i dodatne troškove. Da biste bili sigurni da su vaši podaci sigurni, bolje je da nabavite doc oštećenja alat za popravku.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući popraviti Excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com