《如何将一个word文档按页分割成多个word文档6312 修订-可编辑》由会员分享,可在线阅读,更多相关《如何将一个word文档按页分割成多个word文档6312 修订-可编辑(2页珍藏版)》请在金锄头文库上搜索。
1、如何将一个word文档按页分割成多个word文档?最佳答案1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”);2、键入ALT+F11打开VBA编辑器,选择菜单“插入-模块”;3、粘贴下面的代码:Option ExplicitSub 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
2、 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).Act
3、ivate 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 Sub4、键入F5运行,看到“完成!”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档,检查它们的内容是否就对应于原始文档每个页面的内容。