如何批量將多個Word文檔轉換為PDF文件

Author: Siluvia Last Modified: 2025-05-12

使用Word中的「另存為」功能，可以輕鬆將單個Word文檔轉換為PDF。但如果您需要一次性將某文件夾中的所有Word文檔轉換為單獨的PDF文件呢？本指南將向您展示如何在Word中批量將多個Word文檔轉換為PDF文件。

使用VBA批量將多個Word文檔轉換為PDF文件
 使用Kutools for Word批量將多個Word文檔轉換為PDF文件

使用VBA批量將多個Word文檔轉換為PDF文件

以下VBA代碼可讓您快速將文件夾中的所有Word文檔一次性轉換為PDF文件。請按照以下步驟操作：

在Word中，按 Alt + F11 打開Microsoft Visual Basic for Applications窗口。

在編輯器中，點擊「插入」>「模塊」，然後將以下VBA代碼複製並粘貼到模塊窗口中。

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

Module window with the above code pasted

按 F5 鍵運行代碼。
將彈出一個瀏覽對話框。選擇包含要轉換為PDF的Word文檔的文件夾，然後點擊「確定」。

所選文件夾中的所有Word文檔都將被轉換為單獨的PDF文件。

All Word documents in the selected folder are converted to separate PDF files

使用Kutools for Word批量將多個Word文檔轉換為PDF文件

如果VBA代碼難以處理，您可以嘗試Kutools for Word的「轉換文檔」工具。與Word中的手動方法相比，此工具簡化了流程，使其更易於訪問且效率更高。

Kutools for Word，內建人工智慧 ?，提供超過 100 種實用功能，簡化您的工作流程。

立即下載

點擊「Kutools Plus」>「Doc/Docx」。
在「文件格式轉換」窗口中，按照以下步驟操作：
1. 從「類型」下拉菜單中選擇「Convert docx to pdf」。
2. 點擊添加文檔：
  選擇「文件」以添加單個文檔。
  
  選擇「文件夾」以添加特定文件夾中的所有文檔。
3. 默認情況下，PDF文件將保存到與源文件相同的位置。若要更改位置，請點擊「瀏覽」按鈕並選擇新的目標文件。
4. 可選地，勾選「成功後刪除源文件」框，以便在創建PDF後刪除原始文件。
5. 可選地，勾選「保持源文件的更改時間」框以保留原始文件的元數據。
6. 所有設置完成後，點擊「確定」。