În articolul de mai jos, dorim să vă împărtășim 2 moduri rapide de a imprima în loturi anumite pagini ale mai multor documente Word.
Imprimarea în lot a fișierelor este cu siguranță o binecuvântare pentru mulți dintre noi. Economisește timp la deschiderea fiecărui fișier și, de asemenea, câteva clicuri. Acum, ce zici de imprimarea în serie a anumitor pagini ale mai multor documente Word? De exemplu, ar fi util să tipăriți prima pagină a mai multor fișiere în același timp. De asemenea, pentru a imprima paginile „Conținut” sau „Referințe” ale mai multor fișiere sunt, de asemenea, necesare. Deci putem face asta?
Da, răspunsul este scurt. Și cel mai mare lucru este că nu avem nevoie de niciun program de completare terță parte.
Metoda 1: Imprimați în lot prima pagină a mai multor documente
- Pentru început, stocați toate documentele țintă în același director.
- Apoi faceți clic pe fila „Dezvoltator” și „Visual Basic” pentru a deschide editorul VBA. Sau apăsați „Alt+ F11” în schimb.
- Apoi faceți clic pe „Normal” și apoi pe „Inserare”.
- Alegeți „Modul” din meniul derulant.
- Acum va fi un nou modul. Faceți dublu clic pe el pentru a scoate la iveală spațiul de editare.
- Lipiți macrocomanda pe 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
- Apoi faceți clic pe butonul „Run” sau apăsați „F5”.
- În caseta care apare, introduceți calea folderului în care păstrați fișierele, cum ar fi „E:\cuvânt de test\test\". Nu uitați ultimul „\”. Faceți clic pe „OK” pentru a continua.
Așteptați doar imprimarea.
Metoda 2: Imprimarea în lot a unor pagini specifice ale mai multor documente
Pentru a imprima anumite pagini ale mai multor documente, puteți utiliza următoarea macrocomandă.
Instalați și rulați macrocomandă cu aceiași pași din metoda 1, dar înlocuiți cu această macrocomandă:
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
În mod similar, introduceți calea către folder în prima casetă. Apoi introduceți numărul paginii în a doua. Pentru a imprima pagini consecutive, utilizați o cratimă pentru a separa numerele de început și de sfârșit, cum ar fi „1-3”. Pentru a imprima pagini neconsecutive, utilizați virgula ca separator, cum ar fi „1, 3, 5”. De exemplu, „1, 3-6” înseamnă că se imprimă paginile 1, 3, 4, 5 și 6.
Instrument de reparare pe care trebuie să-l aveți
Se întâmplă că Word nu mai răspunde brusc, lăsând documentul blocat. Posibilitatea de a moșteni un fișier rupt de la un fișier este mare Cuvântul deteriorat. Uneori, consecința este prea copleșitoare pentru a fi suportată. S-ar putea să vă învinovățiți că nu reușiți să faceți copii de rezervă. Dar mai important lucru pe care trebuie să-l faceți este să obțineți un produs de recuperare pentru a recupera datele imediat.
Introducerea autorului:
Vera Chen este expertă în recuperarea datelor DataNumen, Inc., care este lider mondial în tehnologiile de recuperare a datelor, inclusiv a corupt Excel și pdf repararea produselor software. Pentru mai multe informații vizitați www.datanumen.com