word怎么把每页拆分成独立的文档：Word按页拆分成多个独立文档 同事1天的工作量
word怎么把每页拆分成独立的文档：Word按页拆分成多个独立文档 同事1天的工作量分别点击打开拆分好的Word文档，我们发现每首词已经分别整齐的放置到了里面。
点击“插入-模块”，将下面一段VBA代码复制粘贴到该新建的模块中。
代码如下：
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("Scripting.FileSystemObject")
Set oSrcDoc = ActiveDocument
Set oRange = oSrcDoc.Content
oRange.Collapse wdCollapseStart
oRange.Select
For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)
oSrcDoc.Bookmarks("\page").Range.Copy
oSrcDoc.Windows(1).Activate
Application.Browser.Target = wdBrowsePage
Application.Browser.Next
strSrcName = oSrcDoc.FullName
strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName) _
fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))
Set oNewDoc = Documents.Add
Selection.Paste
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox "结束！"
End Sub
点击上方的“运行-运行子过程/窗体”，稍等几秒会弹出一个拆分成功结束的提示框，点击“确定”后关闭VBA窗口，打开文件夹，发现已经拆分完成了，出现2个独立的Word文档。
分别点击打开拆分好的Word文档，我们发现每首词已经分别整齐的放置到了里面。
