2 hitra načina za paketno tiskanje več Wordovih dokumentov

Skupna raba zdaj:

V današnjem strost, z veseljem delimo z vami 2 hitra načina za množično tiskanje več Wordovih dokumentov hkrati.

Glede na dokument je težko ne govoriti o tiskanju. Običajno bi odprli dokument in ga natisnili ločeno enega za drugim. To je lahko sprejemljivo, če obstaja le nekaj datotek. Če pa govorimo o velikem številu dokumentov, bi morali poiskati hitrejše rešitve, namesto da bi vsakega odpirali in tiskali ročno.Paketno tiskanje več Wordovih dokumentov

Sledita 2 razpoložljiva načina za paketno tiskanje več Wordovih dokumentov.

1. način: tiskanje prek kontekstualnega menija

  1. Za začetek, če niste navdušeni nad izbiranjem dokumentov med tiskanjem, jih lahko vse razporedite v isti imenik.
  2. Nato obiščite lokacijo, kjer shranjujete tardobiti dokumente.
  3. Pritisnite »Ctrl+ A«, da izberete vse dokumente.
  4. Desni klik in izberite »Natisni«.Izberite Dokumenti->Desni klik->Izberite "Natisni"

Mimogrede, s to metodo lahko vsakič natisnete največ 15 dokumentov.

2. način: Paketno tiskanje dokumentov prek VBA

Ker ima metoda 1 številsko omejitev na 15, lahko izberete način makra, da obidete omejitev.

  1. Prvič in foremost, organizirati vse tardobite datoteke v isti mapi.
  2. Nato kliknite zavihek »Razvijalec« in nato »Visual Basic«. Če zavihka »Razvijalec« še ni na traku, namesto tega pritisnite »Alt+ F11«, da prikličete urejevalnik VBA.Kliknite »Razvijalec« -> kliknite »Visual Basic«
  3. Nato kliknite »Normalno« in zavihek »Vstavi«.
  4. In izberite »Modul«, da ustvarite novega.Kliknite "Običajno" -> kliknite "Vstavi" -> kliknite "Modul"
  5. Dvokliknite na modul, da imate na voljo prostor za kodiranje na desni.
  6. Tja prilepite kode:
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. Nenazadnje kliknite gumb »Zaženi« ali pritisnite »F5«.Prilepi makro-> Kliknite "Zaženi"

Zdaj se bo pojavila škatla. Preprosto vnesite pot, kjer hranite dokumente, in kliknite »V redu«, da počakate na tiskanje.

Vsekakor lahko makru dodelite gumb, da ga boste uporabljali v prihodnje. Za več podrobnosti lahko sledite tej povezavi: Kako odstraniti oblikovanje prilepljenih besedil z makro in VBA v besedi

Poskrbite za svoje Wordove dokumente

Ker vemo, da je Word občutljiv na napake in napake, so naši dokumenti ves čas ogroženi. Zato je čas, da sprejmemo ukrepe za zaščito dragocenih podatkov. Na primer, da preprečite, da bi se končal z a pokvarjen dok, je dobra navada, da vsakodnevno ustvarjate varnostne kopije.

Uvod avtorja:

Vera Chen je strokovnjakinja za obnovitev podatkov v DataNumen, Inc., ki je vodilna na svetu na področju tehnologij za obnovitev podatkov, vključno z Popravilo v Excelu in pdf popravilo programskih izdelkov. Za več informacij obiščite www.datanumen.com

Skupna raba zdaj:

Komentarji so zaprti.