如何将 Word 文档每隔 5 页或每隔 n 页分割成多个独立文件？

作者晓阳修改日期2025-02-28

在处理大型 Word 文档时，您可能需要将其拆分为更小的独立文件，以便更轻松地管理、共享或编辑。按照 5 页、10 页或自定义页数进行分割，是高效管理长篇内容的实用方式。

逐页复制粘贴不仅效率低下，还非常耗时。本教程将为您介绍一种快速便捷的方法，帮助您将 Word 文档按页分割为多个独立文件。

使用 VBA 代码将 Word 文档分割为多个独立文件文档页码倍数

如果您需要按照文档页码的倍数，将大型文档拆分为多个文件，可以使用以下 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 Regular Expressions 5.5 选项，该选项位于可用引用列表中。见截图：
单击确定后，按下 F5 即可运行代码。
将弹出选择文件夹对话框。请选择用于保存分割文件的文件夹，然后点击确定。

选择文件夹对话框

系统还会弹出提示，要求您输入希望每隔几页进行一次分割。请输入所需的页数，并点击确定。

用于输入要拆分的页码的对话框

文档将按照页码倍数被分割为独立文件。请前往指定文件夹查看分割结果。

文档每 N 页被拆分为单独文件

通过强大功能将 Word 文档分割为多个独立文件文档页码倍数

Kutools for Word 的分割功能强大，可让您按标题 1、分页符、分节符或页面快速将大型 Word 文档分割为多个独立文件，极大简化原本繁琐的手动流程。

Kutools for Word，搭载 AI 功能🤖，提供超过 100 项实用功能，助您轻松完成各类任务。

立即下载

单击 KUTOOLS PLUS > 分割。
在弹出的对话框中，根据需要进行以下选项设置：
1. 在文档页码倍数菜单中，选择按以下方式分割选项。
2. 在输入框中输入 n 的数值。
3. 请选择一个保存位置。
4. 为分割后的文档设置一个前缀。
在设置完成后，点击确定。文档将根据所选选项（如每 7 页）自动分割为多个文件。