word有很多页怎么分成单独的文档

1、第一， office默认是没有显示开发工具的，先点击左上角“文件”进入。

2、第二， 进入后选择“选项”菜单。

3、第三， 再点击“自定义功能区”，右侧选中“开发者工具”。

4、第四， 搞定后，退出点击“开发工具”选项中的“Visual Basic”按钮。

5、第五， 进入后点击“插入”选项，选择“模块”插入。

6、第六， 复制如下代码，张贴入模块：Option ExplicitSub SplitPage衡痕贤伎sAsDocuments()Dim oSrcD泠贾高框oc As Document, oNewDoc As DocumentDim strSrcName As String, strNewName As StringDim oRange As RangeDim nIndex As IntegerDim fso As ObjectSet fso = CreateObject("Scripting.FileSystemObject")Set oSrcDoc = ActiveDocumentSet oRange = oSrcDoc.ContentoRange.Collapse wdCollapseStartoRange.SelectFor nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("\page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBrowsePageApplication.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName))Set oNewDoc = Documents.AddSelection.PasteoNewDoc.SaveAs strNewNameoNewDoc.Close FalseNextSet oNewDoc = NothingSet oRange = NothingSet oSrcDoc = NothingSet fso = NothingMsgBox "结束！"End Sub

7、第七， 张贴完成后，点击“运行”菜单下的“运行子过程”选项，或者直接F5.

8、第八， 操作完成后，程序自动运行，会显示分为单独文档。