2 snelle manieren om meerdere Word-documenten in batch af te drukken

In de post, delen we graag 2 snelle manieren met u om meerdere Word-documenten tegelijk af te drukken.

Zoals het document gaat, is het moeilijk om niet over het afdrukken te praten. Normaal gesproken zouden we een document openen en het afzonderlijk een voor een afdrukken. Dit kan acceptabel zijn als er maar een paar bestanden zijn. Als we het echter over een groot aantal documenten hebben, moeten we snellere oplossingen bedenken in plaats van ze allemaal handmatig te openen en af ​​te drukken.Batch print meerdere Word-documenten

Hieronder volgen twee methoden waarmee u meerdere Word-documenten in batch kunt afdrukken.

Methode 1: Afdrukken via het contextmenu

  1. Om te beginnen, als u geen fan bent van het selecteren van documenten tijdens het afdrukken, kunt u ze allemaal in dezelfde map rangschikken.
  2. Ga dan naar de locatie waar u het tardocumenten ophalen.
  3. Druk op "Ctrl + A" om alle documenten te selecteren.
  4. Klik met de rechtermuisknop en kies "Afdrukken".Selecteer Documenten-> Klik met de rechtermuisknop-> Kies "Afdrukken"

Met deze methode kunt u overigens maximaal 15 documenten per keer afdrukken.

Methode 2: Batch-afdrukdocumenten via VBA

Aangezien methode 1 een nummerbeperking heeft tot 15, kunt u de macromethode kiezen om de beperking te omzeilen.

  1. Eerst en vooralost, alles organiseren tarhaal bestanden op in dezelfde map.
  2. Klik vervolgens op het tabblad "Ontwikkelaar" en vervolgens op "Visual Basic". Als het tabblad "Ontwikkelaar" nog niet in het lint staat, drukt u op "Alt + F11" om de VBA-editor op te roepen.Klik op "Ontwikkelaar" -> Klik op "Visual Basic"
  3. Klik vervolgens op "Normaal" en "Invoegen" tab.
  4. En kies "Module" om een ​​nieuwe aan te maken.Klik op "Normaal" -> Klik op "Invoegen" -> Klik op "Module"
  5. Dubbelklik op de module om de codeerruimte aan de rechterkant beschikbaar te hebben.
  6. Plak de codes daar:
Sub BatchPrintWordDocuments()
  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
      .ActiveDocument.Close
    End With
    strFile = Dir()
  Wend
 
  Set objWordApplication = Nothing
 
End Sub
  1. Last but not least, klik op de knop "Uitvoeren" of druk op "F5".Plak macro-> Klik op "Uitvoeren"

Nu zal er een doos opduiken. Voer gewoon het pad in waar u de documenten bewaart en klik vervolgens op "OK" om te wachten op het afdrukken.

U kunt zeker een knop aan de macro toewijzen om deze in de toekomst te gebruiken. Voor meer details kunt u deze link volgen: Hoe u de opmaak van geplakte teksten met macro en VBA in uw Word kunt verwijderen

Zorg voor uw Word-documenten

Omdat we weten dat Word kwetsbaar is voor fouten en vergissingen, lopen onze documenten voortdurend gevaar. Daarom is het tijd om maatregelen te nemen om waardevolle gegevens te beveiligen. Om bijvoorbeeld te voorkomen dat het eindigt met een corrupte doc, is het een goede gewoonte om dagelijks back-ups te maken.

Auteur Introductie:

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

Reacties zijn gesloten.