Nell'articolo qui sotto, vogliamo condividere con te 2 modi rapidi per stampare in batch pagine specifiche di più documenti Word.
La stampa in batch di file è sicuramente una benedizione per molti di noi. Risparmia tempo aprendo ogni file e anche un paio di clic. Ora che dire della stampa in batch di pagine specifiche di più documenti Word? Ad esempio, sarebbe utile stampare la prima pagina di più file contemporaneamente. Inoltre, per stampare le pagine "Contenuto" o "Riferimenti" di più file sono necessarie anche. Quindi possiamo farlo?
Sì, la risposta è breve. E la cosa migliore è che non abbiamo bisogno di componenti aggiuntivi di terze parti.
Metodo 1: stampa in batch della prima pagina di più documenti
- Per iniziare, salva tutti i documenti di destinazione nella stessa directory.
- Quindi fare clic sulla scheda "Sviluppatore" e su "Visual Basic" per aprire l'editor VBA. Oppure premi "Alt + F11".
- Quindi fare clic su "Normale" e quindi su "Inserisci".
- Scegli "Modulo" nel menu a discesa.
- Ora ci sarà un nuovo modulo. Fare doppio clic su di esso per far emergere lo spazio di modifica.
- Incolla la macro sul modulo:
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
- Quindi fai clic sul pulsante "Esegui" o premi "F5".
- Nella casella che si apre, inserisci il percorso della cartella in cui conservi i file, ad esempio "E:\parola di prova\test\". Non dimenticare l'ultima "\". Fare clic su "OK" per procedere.
Aspetta solo la stampa.
Metodo 2: stampa in batch di pagine specifiche di più documenti
Per stampare pagine specifiche di più documenti, è possibile utilizzare la seguente macro.
Installa ed esegui la macro con gli stessi passaggi del metodo 1, ma sostituiscila con questa macro:
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
Analogamente, inserisci il percorso della cartella nella prima casella. Quindi inserisci il numero di pagina nella seconda. Per stampare pagine consecutive, usa un trattino per separare il numero iniziale da quello finale, ad esempio "1-3". Per stampare pagine non consecutive, usa una virgola come separatore, ad esempio "1, 3, 5". Ad esempio, "1, 3-6" significa stampare le pagine 1, 3, 4, 5 e 6.
Strumento di riparazione che devi avere
Succede che Word smetta di rispondere all'improvviso, lasciando il documento bloccato. La possibilità di ereditare un file rotto da a Parola danneggiata. A volte le conseguenze sono troppo schiaccianti da sopportare. Potresti incolpare te stesso per non aver eseguito i backup. Ma la cosa più importante che devi fare è ottenere un prodotto di recupero per recuperare immediatamente i dati.
Introduzione dell'autore:
Vera Chen è un'esperta di recupero dati in DataNumen, Inc., che è il leader mondiale nelle tecnologie di recupero dati, tra cui corrotto Excel and pdf riparare prodotti software. Per maggiori informazioni visita www.datanumen.com