如何將目前的附件或每一頁另存為獨立的 Word 檔案？

作者曉陽修改日期2024-09-18

如果您的 Word 文件包含多個頁面，或許您只想將目前頁面另存為全新的 Word 檔案。一般做法是複製目前頁面的內容，貼到新文件中再儲存；但本文將為您介紹更有效率的方法，讓您能從單一 Word 檔案中，將目前頁面或每一頁分別儲存為獨立文件。

使用 VBA 程式碼將保存當前附件頁面另存為新的 Word 文件

使用 Kutools for Word 將每一頁另存為獨立的 Word 文件

使用 VBA 程式碼將保存當前附件頁面另存為新的 Word 文件

下列 VBA 程式碼可協助您將目前頁面的內容儲存為全新的 Word 檔案。請依照以下步驟操作：

按住 ALT + F11 鍵，即可開啟 Microsoft Visual Basic for Applications 視窗！

按一下插入> 模組，並將下列程式碼貼到模組視窗中：

Sub SaveCurrentPageAsANewDoc()
    Dim xDoc As Document
    Dim xNewDoc As Document
    Dim xFileName As String
    Dim xFolderPath As Variant
    Dim xDlg As FileDialog
    Set xDoc = ActiveDocument
    xFileName = InputBox("Enter file name here: ", "KuTools for Word")
    If xFileName = "" Then Exit Sub
    Set xDlg = Application.FileDialog(msoFileDialogFolderPicker)
    If xDlg.Show = -1 Then
        xFolderPath = xDlg.SelectedItems(1)
        xDoc.Bookmarks("\Page").Range.Select
        Selection.Copy
        Set xNewDoc = Documents.Add
        Selection.Paste
        xNewDoc.SaveAs xFolderPath & "\" & xFileName & ".docx"
        xNewDoc.Close
    End If
End Sub

按下 F5 以執行此程式碼。在彈出的對話方塊中，輸入生成文件的名稱。請參閱截圖：
按一下確定，然後在第二個彈出的瀏覽視窗中，選擇用來儲存生成文件的資料夾。
按一下確定，目前頁面的內容將儲存為新的 Word 檔案，您可立即在所選資料夾中檢視結果！

使用 Kutools for Word 將每一頁另存為獨立的 Word 文件

若您想將整個文件的每一頁分別儲存為獨立檔案，Kutools for Word 的分割功能可助您一臂之力！

安裝 Kutools for Word 後，請依照下列步驟操作：

點擊 KUTOOLS PLUS > 分割。請參閱截圖：
在文件拆分對話方塊中：
1. 從依頁面分割下拉列表中選取頁面。
2. 點擊按鈕，立即選擇資料夾儲存生成的文件！
3. 視需求指定新儲存檔案的前置字元。
完成設定後，按一下確定，立即開始分割！Word 文件中的所有頁面將儲存為獨立檔案於指定資料夾中。請參閱截圖：