Πώς να μετατρέψετε πολλά έγγραφα Word σε αρχεία pdf;
Είναι εύκολο για εσάς να μετατρέψετε ένα έγγραφο του Word σε αρχείο PDF με τη λειτουργία Αποθήκευση ως στο Word. Αλλά αν θέλετε να μετατρέψετε όλα τα έγγραφα του Word σε ένα φάκελο για να διαχωρίσετε ταυτόχρονα αρχεία PDF, πώς μπορείτε να το επιτύχετε; Αυτό το άρθρο θα σας δείξει έναν κωδικό VBA για μετατροπή κατά παρτίδες πολλαπλών εγγράφων Word σε αρχεία pdf στο Word.
Μαζική μετατροπή πολλών εγγράφων Word σε αρχεία pdf με VBA
Μαζική μετατροπή πολλών εγγράφων Word σε αρχεία pdf με το Kutools για Word
Μαζική μετατροπή πολλών εγγράφων Word σε αρχεία pdf με VBA
Ο παρακάτω κώδικας VBA σάς βοηθά να μετατρέψετε γρήγορα όλα τα έγγραφα του Word σε ένα φάκελο σε αρχεία pdf ταυτόχρονα. Κάντε τα εξής:
1. Στο Word, πατήστε το άλλος + F11 για να ανοίξετε το Microsoft Visual Basic για εφαρμογές παράθυρο.
2. Στο Microsoft Visual Basic για εφαρμογές παράθυρο, κάντε κλικ στην επιλογή Κύριο θέμα > Μονάδα μέτρησηςκαι, στη συνέχεια, αντιγράψτε τον παρακάτω κώδικα VBA στο παράθυρο Module.
Κωδικός VBA: Μαζική μετατροπή πολλών εγγράφων του Word σε αρχεία pdf στο Word
Sub ConvertWordsToPdfs()
'Updated by Extendoffice 20181123
Dim xIndex As String
Dim xDlg As FileDialog
Dim xFolder As Variant
Dim xNewName As String
Dim xFileName As String
Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
If xDlg.Show <> -1 Then Exit Sub
xFolder = xDlg.SelectedItems(1) + "\"
xFileName = Dir(xFolder & "*.*", vbNormal)
While xFileName <> ""
If ((Right(xFileName, 4)) <> ".doc" Or Right(xFileName, 4) <> ".docx") Then
xIndex = InStr(xFileName, ".") + 1
xNewName = Replace(xFileName, Mid(xFileName, xIndex), "pdf")
Documents.Open FileName:=xFolder & xFileName, _
ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
wdOpenFormatAuto, XMLTransform:=""
ActiveDocument.ExportAsFixedFormat OutputFileName:=xFolder & xNewName, _
ExportFormat:=wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:= _
wdExportOptimizeForPrint, Range:=wdExportAllDocument, From:=1, To:=1, _
Item:=wdExportDocumentContent, IncludeDocProps:=True, KeepIRM:=True, _
CreateBookmarks:=wdExportCreateNoBookmarks, DocStructureTags:=True, _
BitmapMissingFonts:=True, UseISO19005_1:=False
ActiveDocument.Close
End If
xFileName = Dir()
Wend
End Sub
3. Πάτα το F5 κλειδί για την εκτέλεση του κώδικα.
4. Εμφανίζεται ένα παράθυρο διαλόγου Αναζήτηση, επιλέξτε το φάκελο που περιέχει έγγραφα του Word που θα μετατρέψετε σε αρχεία pdf και κάντε κλικ στο OK κουμπί.
Στη συνέχεια, όλα τα έγγραφα του Word σε επιλεγμένο φάκελο μετατρέπονται σε ξεχωριστά αρχεία pdf ταυτόχρονα. Δείτε το στιγμιότυπο οθόνης:
Μαζική μετατροπή πολλών εγγράφων Word σε αρχεία pdf με το Kutools για Word
Εάν ο κώδικας VBA είναι δύσκολο να χειριστεί, μπορείτε να δοκιμάσετε το Μετατροπή εγγράφων χρησιμότητα του Kutools για το Word για να λυθει το προβλημα.
Kutools για το Word : Με περισσότερα από 100 εύχρηστα πρόσθετα Word, δωρεάν δοκιμή χωρίς περιορισμό 60 ημέρες.
1. κλικ Kutools Plus > Έγγραφο / Docx. Δείτε το στιγμιότυπο οθόνης:
2. Στο Μετατροπέας μορφής εγγράφου παράθυρο, πρέπει να κάνετε τα εξής:
3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσα έγγραφα έχουν μετατραπεί επιτυχώς, κάντε κλικ στο OK κουμπί και κλείστε το Μετατροπέας μορφής εγγράφου παράθυρο.
Τώρα όλα τα έγγραφα μορφής .docx μετατρέπονται σε αρχεία pdf.
Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.
Τα καλύτερα εργαλεία παραγωγικότητας γραφείου
Kutools για το Word - Βελτιώστε την εμπειρία σας στο Word με το Over 100 Αξιοσημείωτα χαρακτηριστικά!
🤖 Kutools AI Assistant: Μεταμορφώστε το γραπτό σας με AI - Δημιουργία Περιεχομένου / Ξαναγράψτε το κείμενο / Συνοψίστε τα έγγραφα / Ζητήστε πληροφορίες με βάση το Έγγραφο, όλα μέσα στο Word
📘 Κυριαρχία εγγράφων: Διαίρεση σελίδων / Συγχώνευση εγγράφων / Εξαγωγή επιλογής σε διάφορες μορφές (PDF/TXT/DOC/HTML...) / Μαζική μετατροπή σε PDF / Εξαγωγή σελίδων ως εικόνες / Εκτύπωση πολλών αρχείων ταυτόχρονα...
✏ Επεξεργασία Περιεχομένων: Μαζική εύρεση και αντικατάσταση σε πολλά αρχεία / Αλλαγή μεγέθους όλων των εικόνων / Μεταφορά σειρών και στηλών πίνακα / Μετατροπή πίνακα σε κείμενο...
🧹 Καθαρισμός χωρίς κόπο: Σαρώστε μακριά Επιπλέον χώροι / Διακοπές ενότητας / Όλες οι κεφαλίδες / Κουτιά κειμένου / Υπερ-συνδέσεις / Για περισσότερα εργαλεία αφαίρεσης, κατευθυνθείτε στο δικό μας Κατάργηση ομάδας...
➕ Δημιουργικά ένθετα: Εισάγετε Χιλιάδες Διαχωριστές / Πλαίσια ελέγχου / Κουμπιά ραδιοφώνου / QR Code / barcode / Διαγώνιος γραμμικός πίνακας / Λεζάντα εξίσωσης / Λεζάντα εικόνας / Λεζάντα πίνακα / Πολλαπλές εικόνες / Ανακαλύψτε περισσότερα στο Εισαγωγή ομάδας...
🔍 Επιλογές Ακρίβειας: Επισήμανση συγκεκριμένες σελίδες / πίνακες / σχήματα / επικεφαλίδες παραγράφους / Βελτιώστε την πλοήγηση με περισσότερο Επιλέξτε χαρακτηριστικά...
⭐ Βελτιώσεις αστεριών: Πλοηγηθείτε γρήγορα σε οποιαδήποτε τοποθεσία / αυτόματη εισαγωγή επαναλαμβανόμενου κειμένου / εναλλαγή μεταξύ των παραθύρων εγγράφων / 11 Εργαλεία μετατροπής...