Στο παρακάτω άρθρο, θέλουμε να μοιραστούμε μαζί σας 2 γρήγορους τρόπους για ομαδική εκτύπωση συγκεκριμένων σελίδων πολλών εγγράφων του Word.
Η μαζική εκτύπωση αρχείων είναι σίγουρα μια ευλογία για πολλούς από εμάς. Εξοικονομεί χρόνο για το άνοιγμα κάθε αρχείου και επίσης μερικά κλικ. Τώρα τι γίνεται με την ομαδική εκτύπωση συγκεκριμένων σελίδων πολλών εγγράφων του Word; Για παράδειγμα, θα ήταν χρήσιμο να εκτυπώσετε την πρώτη σελίδα πολλών αρχείων ταυτόχρονα. Επίσης, για την εκτύπωση των σελίδων «Περιεχόμενα» ή «Αναφορές» πολλών αρχείων απαιτούνται επίσης. Μπορούμε λοιπόν να το κάνουμε;
Ναι, η απάντηση είναι σύντομη. Και το σπουδαιότερο είναι ότι δεν χρειαζόμαστε πρόσθετα τρίτων.
Μέθοδος 1: Μαζική εκτύπωση της πρώτης σελίδας πολλαπλών εγγράφων
- Για να ξεκινήσετε, αποθηκεύστε όλα τα έγγραφα-στόχους στον ίδιο κατάλογο.
- Στη συνέχεια, κάντε κλικ στην καρτέλα "Προγραμματιστής" και "Visual Basic" για να ανοίξετε το πρόγραμμα επεξεργασίας VBA. Εναλλακτικά, πατήστε "Alt+ F11".
- Στη συνέχεια κάντε κλικ στο "Normal" και μετά στο "Insert".
- Επιλέξτε "Module" στο αναπτυσσόμενο μενού.
- Τώρα θα υπάρχει μια νέα ενότητα. Κάντε διπλό κλικ πάνω του για να εμφανιστεί ο χώρος επεξεργασίας.
- Επικολλήστε τη μακροεντολή στη λειτουργική μονάδα:
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
- Στη συνέχεια, κάντε κλικ στο κουμπί "Εκτέλεση" ή πατήστε "F5".
- Στο πλαίσιο που εμφανίζεται, εισαγάγετε τη διαδρομή φακέλου όπου διατηρείτε αρχεία, όπως "Ε:\δοκιμαστική λέξη\δοκιμή\". Μην ξεχνάτε το τελευταίο "\". Κάντε κλικ στο "OK" για να προχωρήσετε.
Απλώς περιμένετε την εκτύπωση.
Μέθοδος 2: Μαζική εκτύπωση συγκεκριμένων σελίδων πολλαπλών εγγράφων
Για να εκτυπώσετε συγκεκριμένες σελίδες πολλών εγγράφων, μπορείτε να χρησιμοποιήσετε την ακόλουθη μακροεντολή.
Εγκαταστήστε και εκτελέστε τη μακροεντολή με τα ίδια βήματα στη μέθοδο 1, αλλά αντικαταστήστε με αυτήν τη μακροεντολή:
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
Ομοίως, εισαγάγετε τη διαδρομή του φακέλου στο πρώτο πλαίσιο. Στη συνέχεια, εισαγάγετε τον αριθμό σελίδας στο δεύτερο. Για να εκτυπώσετε διαδοχικές σελίδες, χρησιμοποιήστε παύλα για να διαχωρίσετε τους αριθμούς έναρξης και λήξης, όπως "1-3". Για να εκτυπώσετε μη διαδοχικές σελίδες, χρησιμοποιήστε κόμμα ως διαχωριστικό, όπως "1, 3, 5". Για παράδειγμα, "1, 3-6" σημαίνει εκτύπωση των σελίδων 1, 3, 4, 5 και 6.
Εργαλείο επισκευής που πρέπει να έχετε
Συμβαίνει το Word να σταματήσει να ανταποκρίνεται ξαφνικά, αφήνοντας το έγγραφό σας κολλημένο. Είναι μεγάλη η πιθανότητα να κληρονομήσετε ένα κατεστραμμένο αρχείο από ένα κατεστραμμένο Word. Μερικές φορές οι συνέπειες είναι πολύ συντριπτικές για να τις αντέξουμε. Μπορεί να κατηγορήσετε τον εαυτό σας για την αποτυχία λήψης αντιγράφων ασφαλείας. Αλλά το πιο σημαντικό πράγμα που πρέπει να κάνετε είναι να αποκτήσετε ένα προϊόν ανάκτησης για να ανακτήσετε τα δεδομένα αμέσως.
Εισαγωγή συγγραφέα:
Η Vera Chen είναι ειδικός ανάκτησης δεδομένων στο DataNumen, Inc., η οποία είναι ο παγκόσμιος ηγέτης στις τεχνολογίες ανάκτησης δεδομένων, συμπεριλαμβανομένων κατεστραμμένο Excel και pdf επισκευή προϊόντων λογισμικού. Για περισσότερες πληροφορίες επισκεφθείτε www.datanumen.com