如何將 Word 文件每隔 5 頁（或自訂的 n 頁）分割成多個獨立檔案？

作者Xiaoyang修改日期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 PLUS＞分割。
在出現的對話方塊中，依需要設定下列選項：
1. 從 Split by 功能表中選取文件頁碼倍數選項。
2. 在輸入框中指定 n 值。
3. 選擇一個儲存區域。
4. 為分割後的檔案指定一個前置字串。
完成設定後，按一下確定，文件將依照所選選項（例如每 7 頁）自動分割為多個檔案。