如何把一个word文档拆分为多个小文档

如何把一个word文档拆分为多个小文档？将多页文档拆分为单页或多页：1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject(Scripting.FileSystemObject)SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.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))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox结束！EndSub4、键入F5运行，看到“完成！”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。不过那个是按单页拆分的。如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。OptionExplicitSubSplitEveryFivePagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsInteger,nSubIndexAsInteger,nTotalPagesAsInteger,nBoundAsIntegerDimfsoAsObjectConstnSteps=200'修改这里控制每隔几页分割一次Setfso=CreateObject(Scripting.FileSystemObject)SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentnTotalPages=ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.CollapsewdCollapseStartoRange.SelectFornIndex=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.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&_&(nIndex\nSteps+1)&.&fso.GetExtensionName(strSrcName))oNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextnIndexSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox结束！EndSub