Ako rýchlo odstrániť viac stránok v dokumente Word pomocou VBA

V tomto článku sa zameriame na ukážku toho, ako odstrániť viac stránok v dokumente Word pomocou VBA.

Vypracovanie dokumentu si vyžaduje neustále úpravy. A mazanie stránok s obsahom je rovnako potrebné ako iné úpravy. Odstránenie zbytočných textov je jednoduché. Most ľudia sa rozhodnú uskutočniť výber a úlohu potom vykonajú stlačením klávesu „Delete“ alebo „Backspace“.

Týmto určite získate to, čo chcete. Existuje však rýchlejší postup. Navyše preskočíte krok výberu a odstránite viac stránok naraz. Príťažlivým prístupom je spustenie makra Word.

Odstrániť aktuálnu stránku

Pre tých, ktorí nenávidia výber v rozsahu textu, to môže byť vaše požehnanie. Najprv si ukážeme, ako odstrániť aktuálnu stránku pomocou VBA.

1. Najskôr umiestnite kurzor na stránku, ktorú chcete odstrániť.
2. Otvorte editor VBA v programe Word kliknutím na kartu „Vývojár“ a potom na položku „Visual Basic“. Ak karta „Vývojár“ na páse s nástrojmi zatiaľ nie je k dispozícii, stlačte namiesto nich klávesy „Alt + F11“.
3. Po druhé, kliknite na „Normálny“.
4. Potom kliknite na „Vložiť“ a v tejto ponuke zvoľte „Modul“.
5. Nový modul otvoríte dvojitým kliknutím.
6. A vložte tam nasledujúce kódy:

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

7. Nakoniec kliknite na tlačidlo „Spustiť“ alebo stlačte kláves „F5“.

Odstrániť viac stránok

1. Podľa pokynov uvedených vyššie nainštalujte a spustite makro.
2. Nahraďte makro týmto:

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. Spustené makro spustí vstupné pole. Zadajte číslo stránky, ktorú chcete odstrániť, a oddeľte ich čiarkou. Za čiarkou nezadávajte medzeru.
4. Potom pokračujte kliknutím na „OK“.

Toto makro môžete samozrejme použiť na odstránenie aktuálnej stránky. Jednoducho zadajte číslo stránky.

Nenechajte sa zastaviť korupciou

Akonáhle dôjde k dátovej katastrofe, určite to spomalí vašu každodennú prácu a musíte znášať ďalšie cost tiež. Ak sa chcete ubezpečiť, že vaše dáta sú bezpečné a zdravé, radšej sa zmocnite a poškodenie dok opravný nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dát v DataNumen, Inc., ktorá je svetovým lídrom v oblasti technológií obnovy dát, vrátane opraviť Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S