從您的 Word 文件分割並提取頁面（4 種方法）

作者孫修改日期2025-04-07

管理長篇 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