2 brza načina za skupni ispis određenih stranica više Word dokumenata

U članku u nastavku želimo s vama podijeliti 2 brza načina za skupni ispis određenih stranica više Word dokumenata.

Skupni ispis datoteka definitivno je blagoslov za mnoge od nas. Štedi vrijeme otvaranja svake datoteke i nekoliko klikova. Što je sada sa skupnim ispisom određenih stranica više Word dokumenata? Na primjer, bilo bi korisno ispisati prvu stranicu nekoliko datoteka u isto vrijeme. Također, za ispis stranica "Sadržaj" ili "Reference" također su potrebne više datoteka. Možemo li to učiniti?

Da, odgovor je kratak. A što je najbolje, ne trebaju nam nikakvi dodaci trećih strana.

Metoda 1: Skupni ispis prve stranice više dokumenata

1. Za početak, pohranite sve ciljne dokumente u isti direktorij.
2. Zatim kliknite karticu "Developer" i "Visual Basic" da biste otvorili VBA editor. Ili umjesto toga pritisnite “Alt+ F11”.
3. Zatim kliknite "Normalno", a zatim "Umetni".
4. Na padajućem izborniku odaberite "Modul".
5. Sada će biti novi modul. Dvaput kliknite na njega da biste otvorili prostor za uređivanje.
6. Zalijepite makro na modul:

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. Zatim kliknite gumb "Pokreni" ili pritisnite "F5".
8. U okvir koji se pojavi unesite put mape u kojoj čuvate datoteke, kao što je "E:\testna riječ\test\". Ne zaboravi zadnji “\”. Pritisnite “OK” za nastavak.

Samo pričekajte ispis.

Metoda 2: Skupni ispis određenih stranica više dokumenata

Kako biste ispisali određene stranice više dokumenata, možete koristiti sljedeću makronaredbu.

Instalirajte i pokrenite makronaredbu s istim koracima u metodi 1, ali zamijenite ovom makronaredbom:

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

Slično tome, unesite putanju mape u prvi okvir. Zatim unesite broj stranice u drugi. Za ispis uzastopnih stranica upotrijebite crticu za odvajanje početnog i završnog broja, kao što je "1-3". Za ispis neuzastopnih stranica upotrijebite zarez kao razdjelnik, kao što je "1, 3, 5". Na primjer, "1, 3-6" znači ispis stranica 1, 3, 4, 5 i 6.

Alat za popravak koji trebate imati

Događa se da Word iznenada prestane reagirati, ostavljajući vaš dokument zaglavljenim. Velika je mogućnost naslijeđivanja pokvarene datoteke od a oštećena Riječ. Ponekad je posljedica prevelika da bi se podnijela. Možete kriviti sebe što niste napravili sigurnosne kopije. Ali još važnija stvar koju trebate učiniti je nabaviti proizvod za oporavak kako biste odmah dohvatili podatke.

Uvod za autora:

Vera Chen stručnjakinja je za oporavak podataka u DataNumen, Inc., koji je svjetski lider u tehnologijama za oporavak podataka, uključujući pokvaren Excel i pdf popraviti softverske proizvode. Za više informacija posjetite www.datanumen.com