从您的Word文档中拆分和提取页面（4种方法）

Author: Sun Last Modified: 2025-07-31

管理一个长篇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