如何批次列印 Word 文件

作者Amanda Li修改日期2026-02-06

批量列印 Word 文件能大幅節省寶貴時間，尤其在處理報告、發票或大量文件時格外高效。然而，Microsoft Word 本身並未內建一鍵式的「批次列印」功能。根據您的列印頻率與所需控制程度，以下幾種實用方法可助您輕鬆達成目標。

本教學將逐步介紹三種常見方法：透過檔案總管快速完成一次性列印、運用 Kutools for Word 執行精準且可重複的批次作業，以及利用 VBA 巨集打造可重複使用或依規則自動執行的工作流程。

方法 1：從檔案總管批次列印 Word 文件
方法 2：使用 Kutools for Word 批次列印 Word 文件
方法 3：透過 VBA 巨集批次列印 Word 文件

從檔案總管批次列印 Word 文件

這是最直接的內建選項：您可直接在檔案總管中選取文件，一鍵傳送至印表機。

將所有要列印的 Word 文件集中放入同一個資料夾。
選取您想列印的文件。
對選取項目按一下滑鼠右鍵，然後點選列印。（若未看見列印，請點選顯示更多選項，即可開啟傳統內容功能表。）

注意事項：

在某些 Windows 版本中，若一次選取超過 15 個檔案，列印選項可能不會顯示。
此方法一律使用預設印表機及其預設列印偏好設定。若您需要特定列印設定，請先於 Windows 印表機設定中完成配置，再執行列印！

優點

完全內建（Windows）
適合一次性批次作業，快速上手
無需設定

缺點

部分系統對批次大小有限制
大型批次可能導致 Word 變慢或無回應

使用 Kutools for Word 批次列印 Word 文件

Kutools for Word 提供專用的批量打印工具，讓您精準掌控批次列印作業！無論是多份文件或整個資料夾（含子資料夾），皆可一次加入；自由設定列印範圍與順序，並透過單一介面執行全部任務，無需逐一開啟檔案。更突破了檔案總管列印的檔案數量限制，效率大幅提升！

開啟 Word。在功能區上，點選 KUTOOLS PLUS > 批量打印。
在列印特定頁面視窗中，執行下列操作：
1. 新增要列印的文件：
  - 點擊添加文件，立即選取指定的 Word 文件！
  - 或按一下目錄，即可包含資料夾（及其子資料夾）中的所有檔案。
2. 請在全部頁面下方的打印範圍區段中進行選取。
3. 按一下列印。
  提示：
  - 在打印範圍中選取全部頁面，即可完整列印每份文件。其他選項還可讓您僅列印首頁、尾頁、奇數或偶數頁面，或跨所有選取文件的自訂頁面範圍。
  - 啟用逆序打印，即可變更頁面輸出順序，確保列印頁面正確排序！

批次作業完成後，Kutools for Word 將顯示結果對話方塊，告知您成功列印的文件數量。

注意：

批量打印將使用 Word 中設定的預設印表機。若要改用其他印表機，請先前往檔案> 列印中選取所需印表機，再執行批次作業。

優點

介面簡潔易用，列印選項一目了然
專為批量打印設計（減少手動操作）
集中管理所有文件的打印範圍與順序
檔案數量無固定上限
快速處理添加文件或整個資料夾
重複列印任務的日常作業流程更高效

缺點

需安裝 Kutools for Word 方可使用

想在 Word 中更快速地處理重複性任務嗎？試試 Kutools for Word，輕鬆簡化您的日常作業！

下載了解更多

透過 VBA 巨集批次列印 Word 文件

使用 VBA 巨集可透過程式碼精準掌控批量列印作業。雖然初次設定稍顯繁瑣，但一旦完成，即可重複套用於相同資料夾或檔案集，特別適合基於規則或需反覆執行的工作流程。此外，VBA 列印完全不受檔案總管對檔案數量的限制。

在您不打算列印的新 Word 文件或獨立文件中，按下 Alt + F11 以開啟 VBA 編輯器。
點擊插入＞模組。

貼上以下巨集，並將 C:\YourFolder\替換為您自己的文件路徑。

Sub BatchPrintFromFolder()
    Dim folderPath As String
    Dim fileName As String
    Dim doc As Document

    ' Set your folder path here (must end with a backslash)
    folderPath = "C:\YourFolder\"
    If Right(folderPath, 1) <> "\" Then folderPath = folderPath & "\"

    fileName = Dir(folderPath & "*.doc*")

    Application.ScreenUpdating = False

    Do While fileName <> ""
        Set doc = Documents.Open( _
            FileName:=folderPath & fileName, _
            ReadOnly:=True, _
            AddToRecentFiles:=False _
        )

        doc.PrintOut Background:=False
        doc.Close SaveChanges:=wdDoNotSaveChanges

        fileName = Dir()
    Loop

    Application.ScreenUpdating = True
End Sub