2 rýchle spôsoby dávkovej tlače konkrétnych stránok z viacerých dokumentov programu Word

V článku nižšie sa s vami chceme podeliť o 2 rýchle spôsoby hromadnej tlače konkrétnych stránok viacerých dokumentov Word.

Dávková tlač súborov je určite požehnaním pre mnohých z nás. Šetrí čas pri otváraní každého súboru a tiež pár kliknutí. A čo hromadná tlač konkrétnych stránok viacerých dokumentov Word? Bolo by napríklad užitočné vytlačiť prvú stránku z niekoľkých súborov súčasne. Je tiež potrebné vytlačiť stránky „Obsah“ alebo „Odkazy“ viacerých súborov. Môžeme to teda urobiť?

Áno, odpoveď je krátka. A najväčšou vecou je, že nepotrebujeme žiadne doplnky tretích strán.

Metóda 1: Hromadná tlač prvej stránky z viacerých dokumentov

1. Pre začiatok uložte všetky cieľové dokumenty do rovnakého adresára.
2. Potom kliknite na kartu „Vývojár“ a „Visual Basic“, čím otvoríte editor VBA. Alebo namiesto toho stlačte „Alt + F11“.
3. Ďalej kliknite na „Normálny“ a potom na „Vložiť“.
4. V rozbaľovacej ponuke zvoľte možnosť „Modul“.
5. Teraz bude nový modul. Dvojitým kliknutím naň otvoríte priestor na úpravy.
6. Vložte makro do modulu:

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
 
  While strFile <> ""
  With objWordApplication
    .Documents.Open (strFolder & strFile)
    .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=“1”
    .ActiveDocument.Close
  End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

7. Ďalej kliknite na tlačidlo „Spustiť“ alebo stlačte „F5“.
8. V rozbaľovacom okne zadajte cestu k priečinku, kde máte uložené súbory, napríklad „E: \ testovacie slovo \ test \". Nezabudnite na posledný znak „\“. Pokračujte kliknutím na tlačidlo „OK“.

Stačí počkať na tlač.

Metóda 2: Hromadná tlač konkrétnych strán viacerých dokumentov

Na tlač konkrétnych strán viacerých dokumentov môžete použiť nasledujúce makro.

Nainštalujte a spustite makro rovnakým spôsobom ako v metóde 1, ale nahraďte ho týmto makrom:

Sub BatchPrintTheSpecifiedPagesOfWordDocuments()
  Dim objWordApplication As New Word.Application
  Dim strFile As String
  Dim strFolder As String
  Dim strPages As String

  strFolder = InputBox("Enter the folder address", "Folder Address", "For example:E:\test word\test\")
  strFile = Dir(strFolder & "*.doc*", vbNormal)
  strPages = InputBox("Enter the Pages you want to print out", "Specified Pages", "For example:1,2")
 
  While strFile <> ""
    With objWordApplication
      .Documents.Open (strFolder & strFile)
      .ActiveDocument.PrintOut Range:=wdPrintRangeOfPages, Copies:=1, Pages:=strPages
      .ActiveDocument.Close
    End With
  strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing 
End Sub

Podobne zadajte cestu k priečinku do prvého poľa. Potom zadajte číslo strany do druhého poľa. Ak chcete tlačiť po sebe idúce strany, použite pomlčku na oddelenie počiatočného a koncového čísla, napríklad „1-3“. Ak chcete tlačiť strany, ktoré neidú za sebou, použite ako oddeľovač čiarku, napríklad „1, 3, 5“. Napríklad „1, 3-6“ znamená tlač strán 1, 3, 4, 5 a 6.

Nástroj na opravu, ktorý musíte mať

Stáva sa, že Word zrazu prestane reagovať a váš dokument zostane zaseknutý. Existuje veľká možnosť zdediť poškodený súbor z priečinka poškodené slovo. Dôsledok je niekedy príliš zdrvujúci. Môžete si vyčítať, že ste neprijali zálohy. Dôležitejšou vecou, ​​ktorú musíte urobiť, je získať produkt na obnovenie a okamžite načítať údaje.

Ú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 poškodený Excel a pdf oprava softvérových produktov. Pre viac informácií navštívte www.datanumen. S