如何将一个按分割成多个文档

1、如何将一个word文档按页分割成多个 word文档?最佳答案1、 在Word里面打幵那个需要分割的文档(假设它的文件名叫做原始文档.doc ”；2、键入ALT+F11打幵VBA编辑器，选择菜单 插入-模块”3、粘贴下面的代码：Opti on ExplicitSub SplitPagesAsDocume nts()Dim oSrcDoc As Docume nt, oNewDoc As Docume ntDim strSrcName As Stri ng, strNewName As Stri ngDim oRa nge As RangeDim nln dex As In tegerDim fs

2、o As ObjectSet fso = CreateObject("Script in g.FileSystemObject")Set oSrcDoc = ActiveDocume ntSet oRa nge = oSrcDoc.C on te ntoRa nge.Collapse wdCollapseStartoRa nge.SelectFor nln dex = 1 ToActiveDocume nt.C on te nt.l nformatio n( wdNumberOfPages In Docume nt)oSrcDoc.Bookmarks("page&

3、quot;).Ra nge.CopyoSrcDoc.Wi ndows(1).ActivateApplicatio n.Browser.Target = wdBrowsePageApplicatio n.Browser.NextstrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetPare ntFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & "_" & nlndex & "." & fso.

4、GetExte nsionN ame(strSrcName)Set oNewDoc = Docume nts.AddSelectio n.PasteoNewDoc.SaveAs strNewName oNewDoc.Close FalseNextSet oNewDoc = Nothi ngSet oRa nge = Noth ingSet oSrcDoc = Nothi ngSet fso = Noth ingMsgBox "结束！"End Sub4、键入F5运行，看到完成！ ”吉束。5、检查当前文档所在路径下是否生成若干名为原始文档_n.doc ”( n代表其对应原始文档

5、中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。Opti on ExplicitSub SplitPagesAsDocume nts()Dim oSrcDoc As Docume nt, oNewDoc As Docume ntDim strSrcName As Stri ng, strNewName As Str ingDim oRa nge As RangeDim nln dex As In teger, n Sub In dex As In teger, n TotalPages As In teger,nBoundAs In tegerDim fso As Obj

6、ectConst n Steps = 4Set fso = CreateObject("Script in g.FileSystemObject")Set oSrcDoc = ActiveDocume ntSet oRa nge = oSrcDoc.C ontentn TotalPages=ActiveDocume nt.C on te nt.l nformatio n( wdNumberOfPages In Docume nt)oRa nge.Collapse wdCollapseStartoRa nge.SelectFor nln dex = 1 To n TotalP

7、ages Step n StepsSet oNewDoc = Docume nts.AddIf nln dex + n Steps > n TotalPages ThennBound = nTotalPagesElsenBound = nIndex + nSteps - 1End IfFor nSubIndex = nIndex To nBoundoSrcDoc.ActivateoSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target = wdBr

8、owsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNext nSubIndexstrSrcName = oSrcDoc.FullNamestrSrcName = oSrcDoc.FullNamestrNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _fso.GetBaseName(strSrcName) & "_" & nIndex & "." & fso.GetExtensionName(strSrcName)oNewDoc.SaveAs strNewNameoNewDoc.Cl