Note: The other languages of the website are Google-translated. Back to English
Einloggen  \/ 
x
or
x
Registrieren  \/ 
x

or

Wie kann ich mehrere Word-Dokumente stapelweise in PDF-Dateien konvertieren?

Mit der Funktion Speichern unter in Word können Sie ein Word-Dokument ganz einfach in eine PDF-Datei konvertieren. Wenn Sie jedoch alle Word-Dokumente in einem Ordner gleichzeitig in separate PDF-Dateien konvertieren möchten, wie können Sie dies erreichen? Dieser Artikel zeigt Ihnen einen VBA-Code zum Batch-Konvertieren mehrerer Word-Dokumente in PDF-Dateien in Word.

Batch-Konvertierung mehrerer Word-Dokumente in PDF-Dateien mit VBA
Batch-Konvertierung mehrerer Word-Dokumente in PDF-Dateien mit Kutools for Word


Batch-Konvertierung mehrerer Word-Dokumente in PDF-Dateien mit VBA

Mit dem folgenden VBA-Code können Sie schnell alle Word-Dokumente in einem Ordner gleichzeitig in PDF-Dateien konvertieren. Bitte gehen Sie wie folgt vor.

1. Drücken Sie in Word die Taste Andere + F11 Schlüssel zum Öffnen der Microsoft Visual Basic für Applikationen Fenster.

2. In dem Microsoft Visual Basic für Applikationen Klicken Sie im Fenster Insert > ModulKopieren Sie dann den folgenden VBA-Code in das Modulfenster.

VBA-Code: Batch-Konvertierung mehrerer Word-Dokumente in PDF-Dateien in 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. Drücken Sie die Taste F5 Schlüssel zum Ausführen des Codes.

4. Ein Dialogfeld zum Durchsuchen wird angezeigt. Wählen Sie den Ordner aus, der Word-Dokumente enthält, die Sie in PDF-Dateien konvertieren möchten, und klicken Sie auf OK .

Anschließend werden alle Word-Dokumente im ausgewählten Ordner gleichzeitig in separate PDF-Dateien konvertiert. Siehe Screenshot:


Batch-Konvertierung mehrerer Word-Dokumente in PDF-Dateien mit Kutools for Word

Wenn VBA-Code schwer zu handhaben ist, können Sie das versuchen Dokumente konvertieren Nutzen von Kutools for Word um das Problem zu lösen.

Kutools for Word : Mit mehr als 100 praktischen Word-Add-Ins, Kostenlos ohne Einschränkung in 60 Tagen zu versuchen.

1 Klicken Kutools Plus > Doc / Docx. Siehe Screenshot:

2. In dem Dokumentformatkonverter Fenster müssen Sie wie folgt vorgehen:

2.1) Wählen Sie den Ordner aus, der Dokumente enthält, die Sie in PDF konvertieren möchten Quelldateiordner Sektion;
2.2 Select Konvertieren Sie docx in pdf von dem Format konvertieren Dropdown-Liste;
2.3) Standardmäßig ist die Zielpfad wie Quelle Kontrollkästchen ist aktiviert. Wenn Sie alle konvertierten PDF-Dateien im selben Ordner ablegen möchten, lassen Sie diese Option einfach ausgewählt.
Wenn Sie die PDF-Dateien und die Quelldokumente trennen möchten, müssen Sie das Kontrollkästchen deaktivieren Zielpfad wie Quelle und wählen Sie einen neuen Ordner aus, um die PDF-Dateien im zu speichern Sparen Sie bis zu Box;
2.4) Klicken Sie auf Start Taste. Siehe Screenshot:

3. Anschließend wird ein Dialogfeld angezeigt, in dem Sie erfahren, wie viele Dokumente erfolgreich konvertiert wurden. Klicken Sie auf OK Taste und schließen Sie die Dokumentformatkonverter Fenster.

Jetzt werden alle Dokumente im DOCX-Format in PDF-Dateien konvertiert.

Wenn Sie dieses Dienstprogramm kostenlos testen möchten, gehen Sie zu Laden Sie die Software kostenlos herunter Wenden Sie zuerst die Operation gemäß den obigen Schritten an.


Empfohlene Word-Produktivitätswerkzeuge

 

Kutools For Word - Mehr als 100 erweiterte Funktionen für Word, sparen Sie 50% Zeit

  • Komplizierte und wiederholte Vorgänge können in Sekunden einmalig verarbeitet werden.
  • Fügen Sie mehrere Bilder über Ordner hinweg gleichzeitig in ein Word-Dokument ein.
  • Führen Sie mehrere Word-Dateien in Ordnern zu einer gewünschten Reihenfolge zusammen.
  • Teilen Sie das aktuelle Dokument nach Überschrift, Abschnittswechsel oder anderen Kriterien in separate Dokumente auf.
  • Konvertieren Sie Dateien zwischen Doc und Docx, Docx und PDF, eine Sammlung von Tools für allgemeine Konvertierungen und Auswahl usw.
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