2 rychlé způsoby dávkového tisku konkrétních stránek více dokumentů aplikace Word

V níže uvedeném článku se s vámi chceme podělit o 2 rychlé způsoby hromadného tisku konkrétních stránek více dokumentů aplikace Word.

Dávkový tisk souborů je pro mnohé z nás rozhodně požehnáním. Šetří čas otevírání každého souboru a také pár kliknutí. A co dávkový tisk konkrétních stránek více dokumentů aplikace Word? Například by bylo užitečné vytisknout první stránku několika souborů současně. Pro tisk stránek „Obsah“ nebo „Odkazy“ více souborů je také potřeba. Můžeme to tedy udělat?

Ano, odpověď je krátká. A největší věc je, že nepotřebujeme žádné doplňky třetích stran.

Metoda 1: Dávkový tisk první stránky více dokumentů

1. Pro začátek uložte všechny cílové dokumenty do stejného adresáře.
2. Poté kliknutím na kartu „Vývojář“ a „Visual Basic“ otevřete editor VBA. Nebo místo toho stiskněte „Alt+ F11“.
3. Dále klikněte na „Normální“ a poté na „Vložit“.
4. V rozbalovací nabídce vyberte možnost „Modul“.
5. Nyní bude nový modul. Dvojitým kliknutím na něj otevřete prostor pro ú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. Dále klikněte na tlačítko „Spustit“ nebo stiskněte „F5“.
8. V okně, které se objeví, zadejte cestu ke složce, kde máte uloženy soubory, například „E:\testovací slovo\test\". Nezapomeňte na poslední „\“. Pokračujte kliknutím na „OK“.

Jen počkejte na tisk.

Metoda 2: Dávkový tisk konkrétních stránek více dokumentů

Chcete-li vytisknout určité stránky více dokumentů, můžete použít následující makro.

Nainstalujte a spusťte makro se stejnými kroky v metodě 1, ale nahraďte je tímto makrem:

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

Podobně zadejte cestu ke složce do prvního pole. Poté zadejte číslo stránky do druhého. Chcete-li tisknout po sobě jdoucí stránky, použijte pomlčku k oddělení počátečního a koncového čísla, například „1–3“. Chcete-li tisknout stránky, které nejdou za sebou, použijte jako oddělovač čárku, například „1, 3, 5“. Například „1, 3–6“ znamená tisk stránek 1, 3, 4, 5 a 6.

Nástroj na opravu, který potřebujete

Stává se, že Word náhle přestane reagovat a dokument zůstane zaseknutý. Možnost zdědit poškozený soubor z a poškozené slovo. Někdy je následek příliš zdrcující, než aby se dal unést. Můžete si vyčítat, že jste neprovedli zálohy. Ale důležitější věc, kterou musíte udělat, je získat produkt pro obnovu, abyste data okamžitě získali.

Ú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ě poškozený Excel a pdf opravy softwarových produktů. Pro více informací navštivte www.datanumen.com