word文档分页步骤和代码

1、先打开需要分页的word文档
2、按ALT+F11打开VBA编辑器，选择菜单“插入-模块”
3、将下面的代码复制进去
4、按F5就好。注意：文件大的时候可能word会显示未反应，实际上是在运行的，耐心等就好。

 Option Explicit
 
Sub SplitEveryFivePagesAsDocuments()
    Dim oSrcDoc As Document, oNewDoc As Document
    Dim strSrcName As String, strNewName As String
    Dim oRange As Range
    Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer
    Dim fso As Object
    
    Const nSteps = 50    （这边是修改分页后每个文档多少页数的文件，文字不要复制进去 ）
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set oSrcDoc = ActiveDocument
    Set oRange = oSrcDoc.Content
    
    nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
    oRange.Collapse wdCollapseStart
    oRange.Select
    For nIndex = 1 To nTotalPages Step nSteps
        Set oNewDoc = Documents.Add
        If nIndex + nSteps > nTotalPages Then
            nBound = nTotalPages
        Else
            nBound = nIndex + nSteps - 1
        End If
        For nSubIndex = nIndex To nBound