word文档合并与分割

《word文档合并与分割》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、word文档的合并与分割批量合并word文档Word当中的插入文件，一次只可以合并59个，将更多地Word文档合并成一个文档，方法如下：1、新建一个Word文档，命名后保存到和要合并的多篇文档所在的文件夹里。2、按ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：Sub合并文档()Application.ScreenUpdating=FalseMyPath=ActiveDocument.PathMyName=Dir(MyPath&""&"*.doc")i=0DoWhileMyName<>""If

2、MyName<>ActiveDocument.NameThenSetwb=Documents.Open(MyPath&""&MyName)Selection.WholeStorySelection.CopyWindows(1).ActivateSelection.EndKeyUnit:=wdLineSelection.TypeParagraphSelection.Pastei=i+1wb.CloseFalseEndIfMyName=DirLoopApplication.ScreenUpdating=TrueEndSub4、运行，等候几分钟，即

3、可完成合并。合并多个word文档把大量Word文档合并到一个文档中，用复制粘贴太慢了，而用下列方法能快速合并。首先将要合并的多个Word文档存放到同一个文件夹中，然后新建一个空白文档，在菜单中选择“插入→文件”，在弹出的“插入文件”窗口中选择上述文件夹，然后用鼠标拖动选择全部文件(或者使用“Ctrl+A”快捷键)，最后单击“插入”按钮即可完成所有文档的合并。Word中插入多个word文档时如何按顺序插入Word2003插入word文件,可选用菜单栏中的插入→文件，比如选了10个word文档插入进来了，可是这些文档是无序的进来，即使事先将这些文档

4、名字改成1.doc，2.doc，3.doc....也无济于事，把word属性的标题等删了也无用。怎样才能让他们按照文件名的顺序插入？Word不是无序将它们插入进来的，是有规律可循的，插入时，选择文件的先后顺序是关键，比如，有文档1—文档10共10个文档，应该这样选择：按住shift键，先单击10.doc，再单击1.doc，这样就全选它们了，最后得到的顺序是从文档1到文档10。因此，要事先将这些文档名设置有序，方便选取；在“插入”对话框中选择文件的时候按倒序往前选。将一个word文档按页分割成多个word文档1、在Word里面打开那个需要分割的文

5、档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11，打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：OptionExplicitSubSplitPagesAsDocuments()DimoSrcDocAsDocument,oNewDocAsDocumentDimstrSrcNameAsString,strNewNameAsStringDimoRangeAsRangeDimnIndexAsIntegerDimfsoAsObjectSetfso=CreateObject("Scripting.FileSystemOb

6、ject")SetoSrcDoc=ActiveDocumentSetoRange=oSrcDoc.ContentoRange.CollapsewdCollapseStartoRange.SelectFornIndex=1ToActiveDocument.Content.Information(wdNumberOfPagesInDocument)oSrcDoc.Bookmarks("page").Range.CopyoSrcDoc.Windows(1).ActivateApplication.Browser.Target=wdBrowsePag

7、eApplication.Browser.NextstrSrcName=oSrcDoc.FullNamestrNewName=fso.BuildPath(fso.GetParentFolderName(strSrcName),_fso.GetBaseName(strSrcName)&"_"&nIndex&"."&fso.GetExtensionName(strSrcName))SetoNewDoc=Documents.AddSelection.PasteoNewDoc.SaveAsstrNewNameoNewDoc.CloseFalseNext

8、SetoNewDoc=NothingSetoRange=NothingSetoSrcDoc=NothingSetfso=NothingMsgBox"结