2 brza načina za grupno štampanje više Word dokumenata

Podijeli sada:

U današnjoj strost, drago nam je da podijelimo s vama 2 brza načina za grupno štampanje više Word dokumenata odjednom.

Kako dokument ide, teško je ne pričati o štampanju. Obično bismo otvorili dokument i odštampali ga zasebno, jedan po jedan. Ovo može biti prihvatljivo kada postoji samo nekoliko datoteka. Međutim, kada je riječ o velikom broju dokumenata, trebali bismo doći do bržih rješenja umjesto da svaki otvaramo i ispisujemo ručno.Batch print više Word dokumenata

Slijede 2 dostupna metoda za grupno štampanje više Word dokumenata.

1. metod: Štampajte kroz kontekstni meni

  1. Za početak, ako niste ljubitelj odabiranja dokumenata tokom ispisa, možete ih sve posložiti u isti direktorij.
  2. Zatim posjetite lokaciju na kojoj skladištite tardobiti dokumente.
  3. Pritisnite “Ctrl+ A” da odaberete sve dokumente.
  4. Kliknite desnim tasterom miša i izaberite „Print“.Odaberite Dokumenti->Desni klik->Odaberi "Ispis"

Inače, ovom metodom možete svaki put odštampati najviše 15 dokumenata.

Metoda 2: Grupno štampanje dokumenata putem VBA

Pošto metoda 1 ima ograničenje broja na 15, možete odabrati makro način da zaobiđete ograničenje.

  1. Prvo i osnovnoost, organizuj sve tardobiti fajlove u istom folderu.
  2. Zatim kliknite karticu “Developer” i “Visual Basic”. Ako kartica „Developer“ još nije na traci, umjesto toga pritisnite „Alt+ F11“ da biste pozvali VBA editor.Kliknite "Developer"->Kliknite "Visual Basic"
  3. Zatim kliknite na karticu “Normal” i “Insert”.
  4. I odaberite “Module” da kreirate novi.Kliknite "Normalno"->Kliknite "Umetni"->Kliknite "Modul"
  5. Dvaput kliknite na modul da bi prostor za kodiranje bio dostupan na desnoj strani.
  6. Tamo zalijepite kodove:
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. Na kraju, ali ne i najmanje važno, kliknite na dugme “Run” ili pritisnite “F5”.Zalijepi makro->Klikni na "Pokreni"

Sada će se pojaviti kutija. Samo unesite putanju na kojoj čuvate dokumente, a zatim kliknite na “OK” da sačekate štampanje.

Naravno, makrou možete dodeliti dugme kako biste ga koristili u budućnosti. Za više detalja, možete pratiti ovaj link: Kako ukloniti formatiranje zalijepljenih tekstova pomoću makroa i VBA u Wordu

Vodite računa o svojim Word dokumentima

Budući da znamo da je Word osjetljiv na greške i greške, naši dokumenti su stalno izloženi riziku. Stoga je vrijeme da se preduzmu mjere za osiguranje vrijednih podataka. Na primjer, spriječiti da se završi sa a korumpirani doc, dobra je navika svakodnevno praviti sigurnosne kopije.

Uvod za autora:

Vera Chen je stručnjak za oporavak podataka DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući Excel popravka i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com

Podijeli sada:

Komentari su zatvoreni.