如何批次轉換多份 Word 文件為 Pdf 文件

使用 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

   

3. 按下 F5 執行程式碼。
4. 將彈出「瀏覽」對話方塊。請選取包含欲轉換為 PDF 之 Word 文件的資料夾，然後點擊「確定」。

   

所選資料夾中的所有 Word 文件將各自轉換為獨立的 PDF 檔案。

使用 Kutools for Word 批次轉換多份 Word 文件為 Pdf 文件

如果覺得 VBA 程式碼操作複雜，不妨試試 Kutools for Word 的「批次轉換多份 Word 文件為 PDF」功能！此工具大幅簡化整個流程，比在 Word 中手動操作更直覺、更高效。

1. 在 Word 功能區中，點選 Kutools > PDF 與 Word > 批次將多個 Word 文件轉換為 PDF。

   

2. 在 Docx 轉 PDF對話方塊中，請依照下列步驟操作：
   1. 點擊添加文件即可新增單一 Word 文件，或使用下拉箭頭一次加入整個資料夾（可依需求包含子資料夾）！
   2. PDF 檔案預設會儲存在與原始檔案相同的資料夾中。若要變更儲存位置，請取消勾選 將產生的 Pdf 文件儲存在與原始 Word 檔案相同的資料夾中選項，再點擊瀏覽即可。
   3. 完成所有設定後，立即點擊開始轉換，快速啟動流程！

      

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

若逐一使用 Word 的「另存新檔」功能將多份文件轉為 PDF，將極其耗時。當您需要一次處理整個資料夾的文件時，選擇合適的方法可大幅提升效率與準確性。

• 如果您熟悉程式碼，使用 VBA 是個絕佳選擇！它能讓您輕鬆選取資料夾，並自動將其中所有 Word 文件轉換為獨立的 PDF 檔案。
• 使用 Kutools for Word 是更快、更友善使用者的選擇！只需點擊幾下，即可一次加入多個檔案或資料夾，輕鬆批次將 Word 文件轉換為 PDF，完全無需使用 VBA。

透過選擇最符合您技能水準與工作流程的方法，即可快速批次將 Word 文件轉換為 PDF，節省寶貴時間，並告別重複的手動作業。

希望本教學對您有所幫助！若您想探索更多 Word 技巧與提升工作效率的解決方案，請點此處，立即瀏覽我們完整的 Word 教學文章！