跳到主要內容

如何將當前頁面或每個頁面另存為單獨的Word文檔?

現在,如果您的Word文檔中有多個頁面,則只需要將當前頁面保存為一個新的Word文件。 通常,您可以將當前頁面數據複製並粘貼到新的Word文件中,然後將其保存。 但是,在本文中,我將討論如何將當前頁面或每個頁面另存為Word文件中的單獨文檔。

使用VBA代碼將當前頁面另存為新的Word文檔

使用Kutools for Word將每個頁面另存為單獨的Word文檔


使用VBA代碼將當前頁面另存為新的Word文檔

以下VBA代碼可以幫助您將當前頁面內容保存到新的Word文件中,請執行以下操作:

1。 按住 ALT + F11 鍵打開 Microsoft Visual Basic for Applications 窗口。

2。 點擊 插入 > 模塊,然後將以下代碼粘貼到“模塊窗口”中。

VBA代碼:將當前頁面另存為新的Word文檔:

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

3。 然後,按 F5 鍵以運行此代碼,請在彈出的對話框中輸入新文件的名稱,請參見屏幕截圖:

doc保存當前頁面1

4。 然後,點擊 OK 按鈕,然後在第二個彈出窗口中,選擇一個文件夾以輸出新文件,請參見屏幕截圖:

doc保存當前頁面2

5。 點擊 OK 按鈕,當前頁面內容已保存為新的Word文件,您可以轉到該文件夾以查看結果。


使用Kutools for Word將每個頁面另存為單獨的Word文檔

如果要將整個文檔的每一頁另存為單獨的文件,則 Kutools for Word分裂 功能可以幫您一個忙。

Kutools for Word : 帶有超過100個方便的Word加載項,可以在60天內免費試用. 

安裝後 Kutools for Word,請執行以下步驟:

1。 點擊 Kutools 加 > 分裂,請參見屏幕截圖:

2。 在 分割文件 對話框:

(1.)選擇 來自 分割為 下拉列表;

(1.)點擊 doc保存當前頁面5 按鈕選擇一個文件夾以輸出新文件;

(2.)然後,根據需要指定新保存文件的前綴。

3。 完成設置後,單擊 OK 按鈕開始拆分,然後,Word文檔中的所有頁面都已另存為單獨的文件,保存在特定的文件夾中,如以下屏幕截圖所示:

doc保存當前頁面6

點擊下載Kutools for Word並立即免費試用!

最佳辦公生產力工具

Kutools for Word - 透過 Over 提升您的文字體驗 100 顯著特點!

🤖 Kutools 人工智慧助手:用人工智慧改變你的寫作 - 生成內容  /  重寫文字  /  總結文件  /  查詢資料 基於文檔,全部在Word中

📘 文件掌握: 分頁  /  合併文件  /  以各種格式匯出選擇(PDF/TXT/DOC/HTML...)  /  批次轉換為PDF  /  將頁面匯出為圖像  /  一次列印多個文件...

內容編輯: 批量查找和替換 跨多個文件  /  調整所有圖片的大小  /  轉置表行和列  /  將表格轉換為文字...

🧹 輕鬆清潔: 移開 多餘的空間  /  分節符  /  所有標題  /  文本框  /  超鏈接  / 如需更多拆卸工具,請前往我們的 刪除組...

創意插入: 插入 千位分隔符  /  複選框  /  單選按鈕  /  QR Code  /  條碼  /  對角線表  /  公式標題  /  圖片說明  /  表格標題  /  多張圖片  / 發現更多 插入組...

🔍 精準選擇:精確定位 特定頁面  /    /  形狀  /  標題段落  / 增強導航功能 更多 選擇功能...

星級增強: 快速導航至任何位置  /  自動插入重複文字  /  在文檔視窗之間無縫切換  /  11 轉換工具...

???? 想嘗試這些功能嗎? Kutools for Word 提供了 60天免費試用,沒有任何限制! 🚀
 
Comments (2)
No ratings yet. Be the first to rate!
This comment was minimized by the moderator on the site
I am using Office 365. I think I did everything right to split doc in pages, tried several times, mas the splited page docs are not saved on destination foler.
This comment was minimized by the moderator on the site
Have downloaded Kutools , however do not have ENTERPRISE as an option. Only KUTOOLS and KUTOOLS PLUS, please advise how to activate Enterprise
There are no comments posted here yet
Please leave your comments in English
Posting as Guest
×
Rate this post:
0   Characters
Suggested Locations