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

作者：晓阳最后修改时间：2024-09-12

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

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

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

使用惊人的功能将 Word 文档每 N 页拆分为单独的文件

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

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

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

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 page count you want to 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 the page number:", vbInformation, "Kutools for Word"
            Exit Sub
        End If
        If VBA.Int(xSplit) >= xPageCount Then
            MsgBox "The number is greater than the document number." & vbCrLf & "Please re-enter", 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应用程序 窗口中，单击工具 > 参考资料。在 参考-项目 对话框，检查 Microsoft VBScript正则表达式5.5 选项从 可用参考 列表。见截图：
点击 OK，然后按 F5 运行代码。
A 浏览文件夹 对话框将出现。选择要保存拆分文件的文件夹，然后单击 OK.