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

Obnova dokumentu vo formáte Word, Wordové riešenia Júla 7, 2017

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.Rýchlo odstráňte viac stránok z dokumentu 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“.Kliknite na „Normálny“ -> Kliknite na „Vložiť“ -> Kliknite na „Modul“
  5. Nový modul otvoríte dvojitým kliknutím.
  6. A vložte tam nasledujúce kódy:
Sub DeleteCurrentPage () Dim objDoc ako dokument 'Inicializovať sadu objDoc = ActiveDocument' Odstrániť aktuálnu stránku. objDoc.Bookmarks ("\ Page"). Range.Delete End Sub
  1. Nakoniec kliknite na tlačidlo „Spustiť“ alebo stlačte kláves „F5“.Prilepiť kódy-> kliknite na tlačidlo „Spustiť“

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 'Inicializuje a zadáva čísla stránok, ktoré sa majú vymazať. Set objDoc = ActiveDocument strPage = InputBox ("Zadajte čísla stránok, ktoré sa majú vymazať:" & vbNewLine & _ "použite čiarku na oddelenie čísel", "Odstrániť stránky", "Napríklad: 1,3") nSplitItem = UBound ( Split (strPage, ",")) 'Nájdite zadané stránky a zvýraznite ich obsah. Pre nSplitItem = nSplitItem na 0 krok -1 s výberom ActiveDocument.GoTo Čo: = wdGoToPage, čo: = wdGoToAbsolute, Count: = Split (strPage, ",") (nSplitItem) Nastaviť objRange = .Bookmarks ("\ Page"). Rozsah objRange.Delete Koniec s ďalšou nSplitItem Application.ScreenUpdating = Skutočný koncový sub
  1. Spustené makro spustí vstupné pole. Zadajte číslo stránky, ktorú chcete odstrániť, a oddeľte ich čiarkou. Za čiarkou nezadávajte medzeru.
  2. Potom pokračujte kliknutím na „OK“.Zadajte čísla stránok-> kliknite na tlačidlo „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

Komentáre sú uzavreté.