Note: The other languages of the website are Google-translated. Back to English
Σύνδεση  \/ 
x
or
x
Εγγραφή  \/ 
x

or

Πώς να μετατρέψετε πολλά έγγραφα 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. Στο Μετατροπέας μορφής εγγράφου παράθυρο, πρέπει να κάνετε τα εξής:

2.1) Επιλέξτε το φάκελο που περιέχει έγγραφα που θα μετατρέψετε σε pdf στο Φάκελος αρχείου προέλευσης Ενότητα;
2.2 Επιλέξτε Μετατροπή docx σε pdf από το Μετατροπή μορφής αναπτυσσόμενη λίστα;
2.3) Από προεπιλογή, το Διαδρομή προορισμού ίδια με την πηγή είναι επιλεγμένο το πλαίσιο. Εάν θέλετε να τοποθετήσετε όλα τα αρχεία pdf που έχουν μετατραπεί στον ίδιο φάκελο, διατηρήστε αυτήν την επιλογή.
Εάν θέλετε να διαχωρίσετε τα αρχεία pdf και τα έγγραφα προέλευσης, πρέπει να καταργήσετε την επιλογή του Διαδρομή προορισμού ίδια με την πηγή πλαίσιο και επιλέξτε έναν νέο φάκελο για να αποθηκεύσετε τα αρχεία pdf στο Αποθήκευση σε κουτί;
2.4) Κάντε κλικ στο Αρχική κουμπί. Δείτε το στιγμιότυπο οθόνης:

3. Στη συνέχεια, εμφανίζεται ένα παράθυρο διαλόγου για να σας πει πόσα έγγραφα έχουν μετατραπεί επιτυχώς, κάντε κλικ στο OK κουμπί και κλείστε το Μετατροπέας μορφής εγγράφου παράθυρο.

Τώρα όλα τα έγγραφα μορφής .docx μετατρέπονται σε αρχεία pdf.

Εάν θέλετε να δοκιμάσετε δωρεάν αυτό το βοηθητικό πρόγραμμα, μεταβείτε στη διεύθυνση δωρεάν λήψη του λογισμικού πρώτα και μετά πηγαίνετε για να εφαρμόσετε τη λειτουργία σύμφωνα με τα παραπάνω βήματα.


Συνιστώμενα εργαλεία παραγωγικότητας του Word

 

Kutools για το Word - Περισσότερες από 100 προηγμένες δυνατότητες για το Word, εξοικονομήστε 50% χρόνο

  • Περίπλοκες και επαναλαμβανόμενες λειτουργίες μπορούν να γίνουν μία φορά επεξεργασία σε δευτερόλεπτα.
  • Εισαγάγετε πολλές εικόνες στους φακέλους στο έγγραφο του Word ταυτόχρονα.
  • Συγχώνευση και συνδυασμός πολλαπλών αρχείων Word σε όλους τους φακέλους σε ένα με την επιθυμητή σειρά.
  • Διαχωρίστε το τρέχον έγγραφο σε ξεχωριστά έγγραφα σύμφωνα με την επικεφαλίδα, το τμήμα αλλαγής ή άλλα κριτήρια.
  • Μετατροπή αρχείων μεταξύ Doc και Docx, Docx και PDF, συλλογή εργαλείων για κοινές μετατροπές και επιλογή και ούτω καθεξής ...
Say something here...
symbols left.
You are guest
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Chengchi · 3 months ago
    VBA 很棒!!感謝您的分享。
  • To post as a guest, your comment is unpublished.
    K DEG · 4 months ago
    This saved my day, thanks so much!

    I would just like to point out for people using this, if the Word seems to freeze, just wait - it is generating the .pdf files. My Word froze but I opened the folder of the files, and could see that it was indeed generating the .pdf for all files.
  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xFileName = Dir(xFolder & "*.*", vbNormal)
     to 
    xFileName = Dir(xFolder & "*.doc*", vbNormal)
    the macro will not crash when there are non-Word files in the same folder.

  • To post as a guest, your comment is unpublished.
    Garrie · 4 months ago
    If you change
    xIndex = InStr(xFileName, ".") + 1
     to 
    xIndex = InStrRev(xFileName, ".") + 1
    it will search from the end of the string to find the first period. This will avoid problems where the filename contains periods.
  • To post as a guest, your comment is unpublished.
    Jirka · 5 months ago
    Change
     xIndex = InStr(xFileName, ".") + 1


  • To post as a guest, your comment is unpublished.
    San · 1 years ago
    The VBA code is great. Cheers ,ate
  • To post as a guest, your comment is unpublished.
    Doris · 1 years ago
    thanks for vba code , it helps a lot.
  • To post as a guest, your comment is unpublished.
    Eric Smith · 1 years ago
    Hello, Thank you so much for this code. It is working well, however, I get a dialog box after each conversion to save the word doc and I have to save. Can you include code in the macro to make that save and close the file instead of having to close each one?
    • To post as a guest, your comment is unpublished.
      Rebecca · 1 years ago
      if you add "ActiveDocument.Save" right above "ActiveDocument.Close" it will save the document before closing itself so you don't have to always hit the save prompt.
  • To post as a guest, your comment is unpublished.
    9aks92 · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    image attached.


    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Akshay · 1 years ago
    Hi,

    I get runtime error '424':
    Object required

    at the below code

    Documents.Open Filename:=xFolder & xFileName, _
    ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, _
    PasswordDocument:="", PasswordTemplate:="", Revert:=False, _
    WritePasswordDocument:="", WritePasswordTemplate:="", Format:= _
    wdOpenFormatAuto, XMLTransform:=""


    wdOpenFormatAuto = 0 it says.

    Please help.

    Thanks.
  • To post as a guest, your comment is unpublished.
    Stefan · 2 years ago
    Hi there,


    is there an easy way to adjust the VBA Code so that the Documents are convertet to .txt-Files?
  • To post as a guest, your comment is unpublished.
    Sammy · 2 years ago
    Is there any way to have the file name taken from the text of the document?
  • To post as a guest, your comment is unpublished.
    Marzio · 2 years ago
    VBA if i try to convert file that contains macros the macro swith to open file and ends without close file.
  • To post as a guest, your comment is unpublished.
    michaelwaung · 2 years ago
    So nice blog, Thanks for sharing this blog. It Has so useful information for users. I liked this information so much.
    Hope you keep sharing such kind of information convert word doc to html