实用批量指定页数合并和分割按word

批量指定页数合并和分割word如何把一个word多页文档拆分为单页或多页1、在Word里面打开那个需要分割的文档(假设它的文件名叫做“原始文档.doc”；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentTooRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ActiveDocument.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=100'修改这里控制每隔几页分割一次Setfso=CreateObject("Scripting.FileSystemObject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentnTotalPages=ActiveDocument.Content.Information(wdNumberOfPagesInDocument)oRange.CollapsewdCollapseStartoRange.SelectFornIndex=1TonTotalPagesStepnStepsSetoNewDoc=Documents.AddIfnIndex+nSteps>nTotalPagesThennBound=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)&"_"&(nIndexnSteps+1)&"."&fso.GetExtensionName(strSrcName)oNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNextnIndexSetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结束！"EndSub批量合并word文档Word当中的插入文件，一次只可以合并59个，将更多地Word文档合并成一个文档，方法如下：1、新建一个Word文档，命名后保存到和要合并的多篇文档所在的文件夹里。2、按ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：Sub合并文档()Application.ScreenUpdating=FalseMyPath=ActiveDocument.PathMyName=Dir(MyPath&""&"*.doc")i=0DoWhileMyName<>""IfMyName<>ActiveDocument.NameThenSetwb=Documents.Open(MyPath&""&MyName)Selection.WholeStorySelection.CopyWindows(1).ActivateSelection.EndKeyUnit:=wdLineSelection.TypeParagraphSelection.Pastei=i+1wb.CloseFalseEndIfMyName=DirLoopApplication.ScreenUpdating=TrueEndSub4、运行，等候几分钟，即可完成合并。如何合并多个word文档把大量Word文档合并到一个文档中，用复制粘贴太慢了，而用下列方法能快速合并。首先将要合并的多个Word文档存放到同一个文件夹中，然后新建一个空白文档，在菜单中选择“插入一文件”，在弹出的“插入文件”窗口中选择上述文件夹，然后用鼠标拖动选择全部文件（或者使用“Ctrl+A”快捷键），最后单击“插入”按钮即可完成所有文档的合并。Word中插入多个word文档时如何按顺序插入Word2003插入word文件，可选用菜单栏中的插入f文件，比如选了10个word文档插入进来了，可是这些文档是无序的进来，即使事先将这些文档名字改成1.doc,2.doc,3.doc.也无济于事，把word属性的标题等删了也无用。怎样才能让他们按照文件名的顺序插入？Word不是无序将它们插入进来的，是有规律可循的，插入时，选择文件的先后顺序是关键，比如，有文档1文档10共10个文档，应该这样选择：按住shift键，先单击10.doc，再单击1.doc,这样就全选它们了，最后得到的顺序是从文档1到文档10。因此，要事先将这些文档名设置有序，方便选取；在“插入”对话框中选择文件的时候按倒序往前选。