2 snelle manieren om batchgewijs specifieke pagina's van meerdere Word-documenten af ​​te drukken

In het onderstaande artikel willen we 2 snelle manieren met u delen om specifieke pagina's van meerdere Word-documenten in batch af te drukken.

Batch printen van bestanden is zeker een zegen voor velen van ons. Het bespaart tijd bij het openen van elk bestand en ook een paar klikken. Hoe zit het met het batchgewijs afdrukken van specifieke pagina's van meerdere Word-documenten? Het zou bijvoorbeeld handig zijn om de eerste pagina van meerdere bestanden tegelijk af te drukken. Ook zijn voor het afdrukken van de "Inhoud" of "Verwijzingen" pagina's van meerdere bestanden nodig. Dus kunnen we het doen?

Ja, het antwoord is kort. En het mooiste is dat we geen invoegtoepassingen van derden nodig hebben.

Methode 1: Batch Print de eerste pagina van meerdere documenten

1. Om te beginnen, bewaar alle doeldocumenten in dezelfde map.
2. Klik vervolgens op het tabblad "Ontwikkelaar" en "Visual Basic" om de VBA-editor te openen. Of druk in plaats daarvan op "Alt + F11".
3. Klik vervolgens op "Normaal" en vervolgens op "Invoegen".
4. Kies "Module" in het vervolgkeuzemenu.
5. Nu komt er een nieuwe module. Dubbelklik erop om de bewerkingsruimte tevoorschijn te halen.
6. Plak de macro op de module:

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. Klik vervolgens op de knop "Uitvoeren" of druk op "F5".
8. Voer in het vak dat verschijnt het mappad in waar u bestanden bewaart, zoals "E:\testwoord\test\'. Vergeet de laatste "\" niet. Klik op "OK" om verder te gaan.

Wacht maar op het printen.

Methode 2: Batch Print specifieke pagina's van meerdere documenten

Om specifieke pagina's van meerdere documenten af ​​te drukken, kunt u de volgende macro gebruiken.

Installeer en voer de macro uit met dezelfde stappen in methode 1, maar vervang deze door deze macro:

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

Voer op dezelfde manier het mappad in het eerste vak in. Voer vervolgens het paginanummer in het tweede vak in. Om opeenvolgende pagina's af te drukken, gebruikt u een koppelteken tussen het begin- en eindnummer, bijvoorbeeld '1-3'. Om niet-opeenvolgende pagina's af te drukken, gebruikt u een komma als scheidingsteken, bijvoorbeeld '1, 3, 5'. '1, 3-6' betekent bijvoorbeeld dat pagina 1, 3, 4, 5 en 6 moeten worden afgedrukt.

Reparatietool die u nodig heeft

Het komt voor dat Word plotseling niet meer reageert, waardoor uw document vastloopt. De mogelijkheid is groot om een ​​beschadigd bestand te erven van een beschadigd Word. Soms zijn de gevolgen te overweldigend om te dragen. U kunt uzelf de schuld geven van het niet maken van back-ups. Maar wat belangrijker is, is dat u een herstellend product aanschaft om de gegevens onmiddellijk op te halen.

Auteur Introductie:

Vera Chen is een expert op het gebied van gegevensherstel in DataNumen, Inc., de wereldleider in technologieën voor gegevensherstel, waaronder beschadigde Excel en pdf reparatie softwareproducten. Voor meer informatie bezoek www.datanumen.com