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

1、如何将一个word文档按页分割成多个word文档？最佳答案1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”)；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject(S

2、cripting.FileSystemObject)SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks(page).Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePageApplica

3、tion.Browser.NextstrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&_&nIndex&.&fso.GetExtensionName(strSrcName)SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSet

4、oSrcDoc=NothingSetfso=NothingMsgBox结束！EndSub4、键入F5运行，看到“完成！”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”(n代表其对应原始文档中的第几页)的文档，检查它们的内容是否就对应于原始文档每个页面的内容。OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsInteger,nSubI

5、ndexAsInteger,nTotalPagesAsInteger,nBoundAsIntegerDimfsoAsObjectConstnSteps=4Setfso=CreateObject(Scripting.FileSystemObject)SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentnTotalPages=ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.CollapsewdCollapseStartoRange.SelectFornIndex=

6、1TonTotalPagesStepnStepsSetoNewDoc=Documents.AddIfnIndex+nStepsnTotalPagesThennBound=nTotalPagesElsenBound=nIndex+nSteps-1EndIfFornSubIndex=nIndexTonBoundoSrcDoc.ActivateoSrcDoc.Bookmarks(page).Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePageApplication.Browser.NextoNewDoc.ActivateoNewDoc.Windows(1).Selection.PasteNextnSubIndexstrSrcName=oSrcDoc.FullNamestrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&_&nIndex&.&fso.GetExtensionName(strSrcName)oNewDoc.SaveAsstrNewNameoN