Jak rychle odstranit více stránek v dokumentu Word pomocí VBA

V tomto článku se zaměříme na ukázku toho, jak odstranit více stránek v dokumentu Word pomocí VBA.

Vypracování dokumentu vyžaduje neustálé úpravy. A mazání stránek s obsahem je stejně nutné jako jiné úpravy. Odstranění nepotřebného textu je snadné. Většina lidí si vybere text a poté stiskne klávesu „Delete“ nebo „Backspace“.

Tím se určitě dostanete, co chcete. Existuje však rychlejší postup. Navíc přeskočíte krok výběru a odstraníte více stránek najednou. Přitažlivým přístupem je spuštění makra aplikace Word.

Smazat aktuální stránku

Pro ty, kteří neradi dělají výběr z rozsahu textu, to může být vaše požehnání. Nejprve si ukážeme, jak odstranit aktuální stránku pomocí VBA.

1. Nejprve umístěte kurzor na stránku, kterou chcete odstranit.
2. Otevřete editor VBA ve Wordu kliknutím na kartu „Vývojář“ a poté na „Visual Basic“. Pokud karta „Vývojář“ ještě není na pásu karet k dispozici, stiskněte místo toho „Alt + F11“.
3. Za druhé klikněte na „Normální“.
4. Poté klikněte na „Vložit“ a v této nabídce zvolte „Modul“.
5. Otevřete nový modul dvojitým kliknutím.
6. A vložte tam následující kódy:

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

7. Nakonec klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.

Odstranit více stránek

1. Podle pokynů výše nainstalujte a spusťte 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. Spuštěné makro spustí vstupní pole. Zadejte číslo stránky, kterou chcete smazat, a oddělte ji čárkou. Nezadávejte mezeru za čárkou.
4. Poté pokračujte kliknutím na „OK“.

Toto makro můžete samozřejmě použít k odstranění aktuální stránky. Jednoduše zadejte číslo stránky.

Nenechte se zastavit korupcí

Jakmile dojde k datové katastrofě, jistě to zpomalí vaši každodenní práci a vy budete muset nést i dodatečné náklady. Abyste se ujistili, že vaše data jsou v bezpečí, měli byste si pořídit poškození dokumentu opravný nástroj.

Úvod autora:

Vera Chen je expertka na obnovu dat DataNumen, Inc., která je světovým lídrem v oblasti technologií pro obnovu dat, včetně opravit Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com