U članku u nastavku želimo podijeliti s vama 2 brza načina za grupno štampanje određenih stranica više Word dokumenata.
Grupno štampanje datoteka je definitivno blagoslov za mnoge od nas. Štedi vrijeme otvaranja svake datoteke i par klikova. Šta je sa grupnim štampanjem određenih stranica više Word dokumenata? Na primjer, bilo bi korisno ispisati prvu stranicu nekoliko datoteka u isto vrijeme. Takođe, za štampanje stranica "Sadržaj" ili "Reference" više datoteka su takođe potrebne. Možemo li to učiniti?
Da, odgovor je kratak. A najveća stvar je da nam nisu potrebni dodaci trećih strana.
Metoda 1: Grupno štampanje prve stranice više dokumenata
- Za početak, pohranite sve ciljne dokumente u isti direktorij.
- Zatim kliknite karticu "Developer" i "Visual Basic" da otvorite VBA editor. Ili umjesto toga pritisnite “Alt+ F11”.
- Zatim kliknite na “Normal” i zatim “Insert”.
- Odaberite “Module” na padajućem izborniku.
- Sada će postojati novi modul. Dvaput kliknite na njega da otvorite prostor za uređivanje.
- 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
- Zatim kliknite na dugme “Run” ili pritisnite “F5”.
- U iskačućem okviru unesite putanju fascikle u kojoj čuvate datoteke, kao što je “E:\testna riječ\test\". Ne zaboravite zadnje “\”. Kliknite na “OK” da nastavite.
Samo sačekajte štampanje.
Metoda 2: Grupno štampanje specifičnih stranica više dokumenata
Da biste ispisali određene stranice više dokumenata, možete koristiti sljedeći makro.
Instalirajte i pokrenite makro sa istim koracima u metodi 1, ali ga zamijenite ovim makroom:
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 prvo polje. Zatim unesite broj stranice u drugo. Za ispis uzastopnih stranica koristite crticu za odvajanje početnog i završnog broja, kao što je "1-3". Za ispis neuzastopnih stranica koristite zarez kao separator, kao što je "1, 3, 5". Na primjer, "1, 3-6" znači ispis stranica 1, 3, 4, 5 i 6.
Alat za popravku koji trebate imati
Dešava se da Word odjednom prestane da reaguje, ostavljajući vaš dokument zaglavljenim. Velika je mogućnost da se pokvareni fajl naslijedi od a oštećeni Word. Ponekad su posledice previše ogromne da bi se mogle snositi. Možete kriviti sebe što niste napravili sigurnosne kopije. Ali važnija stvar koju trebate učiniti je nabaviti proizvod za oporavak da biste odmah dohvatili podatke.
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 oštećen Excel i pdf popravak softverskih proizvoda. Za više informacija posjetite www.datanumen.com