如何将Word文档每5页或n页拆分为单独的文件？

Author: Xiaoyang Last Modified: 2025-05-07

在处理大型Word文档时，您可能需要将文档拆分为较小的独立文件，以便于处理、共享或编辑。每隔5页、10页或指定数量的页面拆分文档可以是更高效管理冗长内容的实用解决方案。

手动逐页复制和粘贴既耗时又低效。在本教程中，我们将介绍快速简便的方法，将Word文档每N页拆分为单独的文件：

使用VBA代码将Word文档每N页拆分为单独的文件

要将大型文档基于每N页拆分为单独的文件，以下VBA代码可以帮助您。请按照以下步骤操作：

按住ALT + F11打开Microsoft Visual Basic for Applications窗口。
点击插入 > 模块，并将以下代码复制粘贴到空白模块中：

Sub DocumentSplitter()
    Dim xDoc As Document, xNewDoc As Document
    Dim xSplit As String, xCount As Long, xLast As Long
    Dim xRngSplit As Range, xDocName As String, xFileExt As String
    Dim xRegEx As RegExp
    Dim xPageCount As Integer
    Dim xShell As Object, xFolder As Object, xFolderItem As Object
    Dim xFilePath As String
    On Error Resume Next
    Set xDoc = Application.ActiveDocument
    Set xShell = CreateObject("Shell.Application")
    Set xFolder = xShell.BrowseforFolder(0, "Select a Folder:", 0, 0)
    If TypeName(xFolder) = "Nothing" Then Exit Sub
    Set xFolderItem = xFolder.Self
    xFilePath = xFolderItem.Path & "\"
    Application.ScreenUpdating = False
    Set xNewDoc = Documents.Add(Visible:=False)
    xDoc.Content.WholeStory
    xDoc.Content.Copy
    xNewDoc.Content.PasteAndFormat wdFormatOriginalFormatting
    With xNewDoc
        xPageCount = .ActiveWindow.Panes(1).Pages.Count
L1:     xSplit = InputBox("The document contains " & xPageCount & " pages." & _
                 vbCrLf & vbCrLf & "Please enter the number of pages per split:", "Kutools for Word", xSplit)
        If Len(Trim(xSplit)) = 0 Then Exit Sub
        Set xRegEx = New RegExp
        With xRegEx
            .MultiLine = False
            .Global = True
            .IgnoreCase = True
            .Pattern = "[^0-9]"
        End With
        If xRegEx.Test(xSplit) = True Then
            MsgBox "Please enter a valid page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The entered number exceeds the total page count of the document." & vbCrLf & "Please enter a valid number.", vbInformation, "Kutools for Word"
            GoTo L1
        End If
        xDocName = xDoc. Name
        xFileExt = VBA.Right(xDocName, Len(xDocName) - InStrRev(xDocName, ".") + 1)
        xDocName = Left(xDocName, InStrRev(xDocName, ".") - 1) & "_"
        xFilePath = xFilePath & xDocName
        For xCount = 0 To Int(xPageCount / xSplit)
            xPageCount = .ActiveWindow.Panes(1).Pages.Count
            If xPageCount > xSplit Then
                xLast = xSplit
            Else
                xLast = xPageCount
            End If
            Set xRngSplit = .GoTo(What:=wdGoToPage, Name:=xLast)
            Set xRngSplit = xRngSplit.GoTo(What:=wdGoToBookmark, Name:="\page")
            xRngSplit.Start = .Range.Start
            xRngSplit.Cut
            Documents.Add
            Selection.Paste
            ActiveDocument.SaveAs FileName:=xFilePath & xCount + 1 & xFileExt, AddToRecentFiles:=False
            ActiveWindow.Close
        Next xCount
        Set xRngSplit = Nothing
        xNewDoc.Close wdDoNotSaveChanges
        Set xNewDoc = Nothing
    End With
    Application.ScreenUpdating = True
End Sub

粘贴代码后，仍然在 Microsoft Visual Basic for Applications 窗口中，点击工具 > 引用。在 引用 - 项目 对话框中，勾选 Microsoft VBScript 正则表达式 5.5 选项，该选项位于 可用引用 列表中。参见截图：
点击确定，然后按F5运行代码。
将出现一个浏览文件夹对话框。选择要保存拆分文件的文件夹，然后点击确定。

Browse For Folder dialog box

另一个提示框将出现，要求输入您希望拆分的页数。输入所需的页数并点击确定。

Dialog box for entering the page number to split based on

文档将被每N页拆分为单独的文件。导航到指定的文件夹查看结果。

The document is split into separate files every N pages

使用一项强大功能将Word文档每N页拆分为单独的文件

Kutools for Word提供了一个强大的文档拆分功能，使您可以根据标题1、分页符、分节符或页面快速将大型Word文档拆分为多个独立文件。此功能简化了原本繁琐的手动过程。

Kutools for Word，内置 AI 🤖，提供超过 100 种实用功能，助您简化任务。

立即下载

点击 Kutools Plus > 文档拆分.
在弹出的对话框中，根据需要配置以下选项：
1. 从类型菜单中选择文档页码倍数选项。
2. 在输入框中指定n值。
3. 选择保存位置。
4. 为拆分的文档指定前缀。
完成设置后，点击确定。文档将根据所选选项（例如，每7页）拆分为多个文件。