如何将一个word文档按页分割成多个word文档.docx

Document serial number【UU89WT-UU98YT-UU8CB-UUUT-UUT108】
如何将一个word文档按页分割成多个word文档
如何将一个word文档按页分割成多个word文档
最佳答案
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“”）；
2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；
3、粘贴下面的代码：
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso As Object
Set fso = CreateObject("")
Set oSrcDoc = ActiveDocument
Set oRange =
wdCollapseStart

("\page").
(1).Activate
strSrcName =
strNewName = (strSrcName), _
(strSrcName) & "_" & nIndex & "." & (strSrcName))
Set oNewDoc =

strNewName
False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub
4、键入F5运行，看到“完成！”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
Option Explicit
Sub SplitPagesAsDocuments()
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 = 4
Set fso = CreateObject("")
Set oSrcDoc = ActiveDocument
Set oRange