一次複製所有已開啟的 Word 文件

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

當您同時開啟多份 Word 文件時，可能需要將它們一併複製到另一個資料夾，以便備份、分享、上傳至雲端儲存空間、傳輸到其他電腦，或附加至電子郵件。雖然 Word 未提供直接一次複製所有已開啟文件的指令，但仍有幾種可靠的方法可達成此目的。

在本教學中，您將掌握三種實用方法：手動將每個已開啟的文件儲存至同一資料夾、使用 Kutools for Word 一鍵複製所有已開啟的文檔，或透過 VBA 巨集自動將所有已開啟且已儲存的檔案複製到您指定的資料夾。

方法 1：使用「另存新檔」將每個已開啟的文件儲存至同一資料夾
方法 2：透過 Kutools for Word 一鍵複製所有打開文檔
方法 3：透過 VBA 自動複製所有打開文檔

使用「另存新檔」將每個已開啟的文件儲存至同一資料夾

此方法適用於所有 Word 版本。您只需先將每個已開啟的文件儲存至同一資料夾，之後便能輕鬆全選該資料夾中的所有檔案，一鍵複製或直接附加至電子郵件中！

Office Tab

為 Word、Excel、PowerPoint 等應用程式帶來分頁式瀏覽體驗——如同網頁瀏覽器般，讓您在單一視窗中流暢切換文件。

免費下載深入了解

在 Word 中，切換至第一個已開啟的文件。
按一下檔案 > 另存新檔，然後選取瀏覽。
在「另存新檔」視窗中，導覽至目標資料夾。確認位址列已顯示該資料夾名稱後，按一下儲存。
對每個已開啟的文件重複相同步驟，並始終選擇相同的資料夾。
完成後，在檔案總管中開啟該資料夾，按下 Ctrl + A 全選所有檔案，再按右鍵選擇複製。

所有選取的檔案已成功複製，可貼上至新位置或附加至電子郵件。

注意：

此方法務必使用另存新檔，而非儲存。儲存僅會更新文件在目前位置的版本；而另存新檔則可讓您選擇不同資料夾，並在該處建立副本——這是在將所有開啟的文檔集中至單一資料夾時不可或缺的關鍵步驟！

優點

適用於任何 Word 版本
無需額外增益集
適合少量檔案的處理

缺點

若同時開啟多份文件，需手動操作
在多個視窗間切換時，容易遺漏檔案

透過 Kutools for Word 一鍵複製所有打開文檔

若您經常需要複製或彙整多份已開啟的文件，Kutools for Word 能為您大幅節省寶貴時間！內建一鍵功能，即可將所有目前開啟的文件瞬間複製至您指定的資料夾。

開啟 Word，並確保所有要複製的文件都已開啟且儲存完畢。
在功能區的 KUTOOLS PLUS 選項卡中，點擊更多 > 複製所有開啟的文件。
在檔案成功複製後，將出現一個對話方塊。請按一下確定。

按一下複製所有打開文件後，所選文件就會立即複製到剪貼簿！接著，您可開啟任意目標資料夾，按下 Ctrl + V 貼上檔案，或直接貼到電子郵件視窗作為附件，操作快速又便利！

注意：

使用此功能前，請務必先儲存所有已開啟的文件。若任一檔案含有未儲存的變更，將無法成功複製；Kutools 會列出複製失敗的檔案，供您儲存後再次嘗試。

優點

一鍵處理多份已開啟的文件
比手動儲存與複製快得多
若有檔案複製失敗，會明確通知您
適合重複性工作流程

想在 Word 中更快速完成重複性任務嗎？試試 Kutools for Word，讓您的日常操作更輕鬆高效！

下載深入了解

透過 VBA 自動複製所有打開文檔

若您偏好不使用外掛的自動化方案，可選用 VBA 巨集。此巨集會將每個已開啟且已儲存的文件，直接從原始位置複製到您指定的資料夾，完全不會影響目前開啟的文件。

在 Word 中，按下 Alt + F11 即可開啟 VBA 編輯器！
點擊插入＞模組。

請將下列程式碼貼到模組中。

Option Explicit

Sub CopyAllOpenDocuments()

    Dim doc As Document
    Dim destFolder As String
    Dim src As String, dst As String
    Dim fso As Object
    Dim count As Long

    With Application.FileDialog(msoFileDialogFolderPicker)
        If .Show <> -1 Then Exit Sub
        destFolder = .SelectedItems(1)
    End With

    If Right(destFolder, 1) <> "\" Then destFolder = destFolder & "\"

    Set fso = CreateObject("Scripting.FileSystemObject")

    For Each doc In Application.Documents
        If doc.Path <> "" Then
            src = doc.FullName
            dst = destFolder & doc.Name

            If LCase$(src) <> LCase$(dst) Then
                fso.CopyFile src, dst, True
                count = count + 1
            End If
        End If
    Next doc

    MsgBox count & " document(s) copied successfully.", vbInformation, "Kutools for Word"

End Sub

按下 F5 即可執行巨集！
將出現資料夾選擇對話方塊。請選擇要複製已開啟文件的目標資料夾，然後按一下確定。
將彈出確認對話方塊，顯示成功複製的檔案數量。

所有符合條件的已開啟檔案現已複製至所選資料夾。您可立即開啟該資料夾，依需求檢視、移動、上傳或附加這些複製檔案。

注意：

此巨集僅會複製至少已儲存過一次的文件，全新且尚未儲存的文件將被跳過。
若文件包含未儲存的變更，僅會複製最近儲存的版本。

優點

一次執行即可複製所有打開文檔
無需額外增益集
原始檔案保持不變

缺點

巨集可能被公司安全政策封鎖
未儲存的變更不會被包含

該選擇哪種方法？

方法	最適合	限制
另存至單一資料夾	收集少數已開啟的文件（2–3）	若檔案數量眾多，則需手動操作
Kutools for Word	一鍵複製所有打開文檔	需安裝 Kutools
VBA 巨集	無需增益集即可自動複製至資料夾	需啟用巨集