Skip to main content

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

Author: Siluvia Last Modified: 2025-08-06

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

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

 

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

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

  1. 在Word中,按 Alt + F11 打開Microsoft Visual Basic for Applications窗口。
  2. 在編輯器中,點擊「插入」>「模塊」,然後將以下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
  3. F5 鍵運行代碼。
  4. 將彈出一個瀏覽對話框。選擇包含要轉換為PDF的Word文檔的文件夾,然後點擊「確定」。
    Browse dialog box

所選文件夾中的所有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 種實用功能,簡化您的工作流程。
  1. 點擊「Kutools Plus」>「Doc/Docx」。
    Doc/Docx button on the Kutools Plus tab on the ribbon
  2. 在「文件格式轉換」窗口中,按照以下步驟操作:
    1. 從「類型」下拉菜單中選擇「Convert docx to pdf」。
    2. 點擊 Add button 添加文檔:
      Add menu
      • 選擇「文件」以添加單個文檔。
      • 選擇「文件夾」以添加特定文件夾中的所有文檔。
    3. 默認情況下,PDF文件將保存到與源文件相同的位置。若要更改位置,請點擊「瀏覽」按鈕 Browse button 並選擇新的目標文件。
    4. 可選地,勾選「成功後刪除源文件」框,以便在創建PDF後刪除原始文件。
    5. 可選地,勾選「保持源文件的更改時間」框以保留原始文件的元數據。
    6. 所有設置完成後,點擊「確定」。
    Document Format Converter window

現在,所有.docx格式的文檔都已成功轉換為PDF文件。

Kutools for Word 是終極的 Word 增益工具,能夠簡化您的工作並提升文檔處理技能。立即獲取!

最佳辦公效率工具

Kutools for Word -讓你的 Word進階,擁有超過 100 項強大功能!

🤖 Kutools AI FeaturesAI Assistant / 即時助手 / 超級潤色(保留格式) / 超級翻譯(保留格式) / AI遮擋 / AI校正...

📘 文檔掌控文檔拆分頁面 / 文檔合併 / 選取內容多格式導出(PDF/TXT/DOC/HTML...)/ 批量轉換為 PDF...

內容編輯跨多個文件批量查找與替換 / 圖片大小統一調整 / 行列翻轉表格 / 表格轉文本...

🧹 潔淨無憂:一鍵清除多餘空格 / 分節符 /文字方塊 / 超鏈接 / 更多清除工具請至 清除所有 群組...

創新插入:插入千位分隔符 / 複選框 / 選項按鈕 / 二維碼 / 條形碼 / 批量插入圖片 / 更多插入功能請前往 插入 群組...

🔍 精準選取:鎖定特定頁面 / 表格 / 形狀 / 標題段落 / 使用更多 選取 功能提升導航效率...

優質強化輕鬆跳轉至文件夾 / 自動插入重複文字 / 切換文檔窗口 /11 轉換工具...

🌍 支援40+ 種語言:可用您的偏好語言體驗 Kutools —— 支援英語、西班牙語、德語、法語、中文等超過40 種語言!

Kutools and Kutools Plus tabs on the Word Ribbon
👉 想要體驗這些功能嗎?立即下載 Kutools for Word!🚀
 

最佳辦公效率工具

Kutools for Word - 100+ Word 工具