從您的 Word 文檔中拆分並提取頁面（4 種方法）

Author: Sun Last Modified: 2025-05-12

管理長篇 Word 文檔有時需要您提取特定頁面以進行單獨審閱或分發。無論您是需要提取單個頁面、一系列頁面，還是根據定義的標準拆分整個文檔，Microsoft Word 都提供了多種有效的選項。以下是四種實用的方法，幫助您輕鬆地從 Word 文檔中提取或拆分頁面。

從 Word 中提取特定頁面 / 當前頁面

通過使用複製和粘貼功能 - 手動
通過使用打印到 PDF 功能 - 將提取的頁面保存為 PDF
通過使用 VBA 代碼 - 將提取的頁面保存到指定文件夾

根據頁面、標題、分隔符將整個 Word 文檔拆分為單獨文件

視頻：在 Word 中提取頁面

從 Word 中提取特定頁面 / 當前頁面

本指南詳細介紹了三種高效技術，用於從文檔中提取特定頁面或當前頁面。

通過複製和粘貼功能提取頁面 – 手動

從 Word 文檔中提取特定頁面或內容的最簡單方法是使用複製和粘貼功能。

步驟 1：選擇要提取的內容

將光標放在要複製的內容前面，然後向下滾動到內容末尾，按住 Shift 鍵，點擊內容末尾。

步驟 2：複製所選內容

右鍵單擊所選內容並選擇複製，或者直接按Ctrl + C

步驟 3：粘貼到新文檔中

打開一個新的 Word 文檔，並使用 Ctrl + V 粘貼內容。

步驟 4：保存新文檔

通過點擊「文件」>「另存為」來保存您新創建的文檔。

通過打印到 PDF 功能提取頁面 - 將提取的頁面保存為 PDF

另一種提取頁面的方法是將其打印為 PDF。當您需要以廣泛接受的格式共享或保存提取的頁面時，此方法非常方便。

步驟 1：進入打印菜單

文檔打開後，轉到「文件」>「打印」。

步驟 2：選擇 Microsoft Print to PDF

在打印機下拉菜單中，選擇「Microsoft Print to PDF」。

步驟 3：指定頁面範圍

在設置中，選擇您想要的打印範圍：

打印所有頁面：打印文檔的所有頁面。
打印選區：打印選中的部分，如果您未選擇任何範圍，則無法使用此選項。
打印當前頁：打印當前頁面。
自定義打印：根據需要打印自定義頁面範圍。選擇此選項時，會顯示「頁面」文本框供您輸入要打印的頁碼。

步驟 4：打印

點擊「打印」，並選擇保存 PDF 的位置。指定的頁面將作為新的 PDF 文檔保存。

通過 VBA 代碼提取頁面 - 將提取的頁面保存到指定文件夾

如果您熟悉 VBA，可以使用腳本自動化頁面提取過程。此方法在處理大型文檔時特別有用。

注意：以下代碼一次只能提取連續的頁面範圍。

步驟 1：按下 Alt + F11 鍵打開 VBA 編輯器

步驟 2：插入新模塊

在打開的「Microsoft Visual Basic for Applications」窗口中，點擊「插入」選項卡，然後選擇「模塊」。

步驟 3：插入代碼

複製以下代碼並將其粘貼到模塊窗口中。

Sub SaveSpecifiedPagesAsNewDoc()
'UpdatebyKutools
    Dim objNewDoc As Document
    Dim objDoc As Document
    Dim strFolder As String
    Dim strFileName As String
    Dim startPage As Long
    Dim endPage As Long
    Dim startRange As Range
    Dim endRange As Range
    
    ' Initialize
    Set objDoc = ActiveDocument
    
    ' Specify the folder path and file name here
    strFolder = "C:\Users\AddinsVM001\Desktop\pdf\extract pages" ' Example path
    strFileName = "ExtractedPages" ' Example file name
    
    ' Specify start and end pages here
    startPage = 3
    endPage = 4
    
    ' Find the range of the specified pages
    With objDoc
        ' Go to the start of the start page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=startPage).Select
        Set startRange = Selection.Range
        
        ' Go to the start of the page after the end page, to get the complete end page
        .GoTo(What:=wdGoToPage, Which:=wdGoToAbsolute, Count:=endPage + 1).Select
        Selection.MoveLeft Unit:=wdCharacter, Count:=1
        Set endRange = Selection.Range
        
        ' Define the range from start to end page
        Set startRange = .Range(Start:=startRange.Start, End:=endRange.End)
       
        
    End With
    
    ' Copy the defined range
    startRange.Copy
    
    ' Open a new document to paste the selection
    Set objNewDoc = Documents.Add
    objNewDoc.Content.Paste
    
    ' Save the new document
    objNewDoc.SaveAs2 FileName:=strFolder & "\" & strFileName & ".docx"
    objNewDoc.Close False
    
    ' Clean up
    Set objNewDoc = Nothing
    Set objDoc = Nothing
    Set startRange = Nothing
    Set endRange = Nothing
    
    MsgBox "Pages " & startPage & " to " & endPage & " have been extracted to " & strFileName & ".docx"
End Sub