《批量合并和分割word文档》由会员分享，可在线阅读，更多相关《批量合并和分割word文档（4页珍藏版）》请在金锄头文库上搜索。
1、批量合并和分割word文档如何把一个word多页文档拆分为单页或多页1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；2、键入ALT+F11打开VBA编辑器，选择菜单“插入-模块”；3、粘贴下面的代码：Option ExplicitSub SplitPagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer Dim f
2、so As Object Set fso = CreateObject(Scripting.FileSystemObject) Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oSrcDoc.Bookmarks(page).Range.Copy oSrcDoc.Windows(1
3、).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & _ & nIndex & . & fso.GetExtensionName(strSrcName) Set oNewDoc = Documents.Add Selection.Paste oN
4、ewDoc.SaveAs strNewName oNewDoc.Close False Next Set oNewDoc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox 结束！End Sub4、键入F5运行，看到“完成！”结束。5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。不过那个是按单页拆分的。如果想按照指定页数拆分，请使用下面的代码，其它步骤和原来那个方案相同。Option
5、 Explicit Sub SplitEveryFivePagesAsDocuments() Dim oSrcDoc As Document, oNewDoc As Document Dim strSrcName As String, strNewName As String Dim oRange As Range Dim nIndex As Integer, nSubIndex As Integer, nTotalPages As Integer, nBound As Integer Dim fso As Object Const nSteps = 100 修改这里控制每隔几页分割一次 Se
6、t fso = CreateObject(Scripting.FileSystemObject) Set oSrcDoc = ActiveDocument Set oRange = oSrcDoc.Content nTotalPages = ActiveDocument.Content.Information(wdNumberOfPagesInDocument) oRange.Collapse wdCollapseStart oRange.Select For nIndex = 1 To nTotalPages Step nSteps Set oNewDoc = Documents.Add I
7、f nIndex + nSteps nTotalPages Then nBound = nTotalPages Else nBound = nIndex + nSteps - 1 End If For nSubIndex = nIndex To nBound oSrcDoc.Activate oSrcDoc.Bookmarks(page).Range.Copy oSrcDoc.Windows(1).Activate Application.Browser.Target = wdBrowsePage Application.Browser.Next oNewDoc.Activate oNewDo
8、c.Windows(1).Selection.Paste Next nSubIndex strSrcName = oSrcDoc.FullName strNewName = fso.BuildPath(fso.GetParentFolderName(strSrcName), _ fso.GetBaseName(strSrcName) & _ & (nIndex nSteps + 1) & . & fso.GetExtensionName(strSrcName) oNewDoc.SaveAs strNewName oNewDoc.Close False Next nIndex Set oNewD
9、oc = Nothing Set oRange = Nothing Set oSrcDoc = Nothing Set fso = Nothing MsgBox 结束！End Sub批量合并word文档Word当中的插入文件，一次只可以合并59个，将更多地Word文档合并成一个文档，方法如下：1、新建一个Word文档，命名后保存到和要合并的多篇文档所在的文件夹里。2、按ALT+F11进入宏编辑器。3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：Sub 合并文档()Application.ScreenUpdating = FalseMyPath = ActiveDocume
10、nt.PathMyName = Dir(MyPath & & *.doc)i = 0Do While MyName If MyName ActiveDocument.Name ThenSet wb = Documents.Open(MyPath & & MyName) Selection.WholeStory Selection.Copy Windows(1).Activate Selection.EndKey Unit:=wdLine Selection.TypeParagraph Selection.Pastei = i + 1wb.Close FalseEnd IfMyName = Di
11、rLoopApplication.ScreenUpdating = TrueEnd Sub4、运行，等候几分钟，即可完成合并。如何合并多个word文档把大量 Word 文档合并到一个文档中，用复制粘贴太慢了，而用下列方法能快速合并。首先将要合并的多个 Word 文档存放到同一个文件夹中，然后新建一个空白文档，在菜单中选择“插入 文件”，在弹出的“插入文件”窗口中选择上述文件夹，然后用鼠标拖动选择全部文件(或者使用“ Ctrl+A ”快捷键)，最后单击“插入”按钮即可完成所有文档的合并。Word中插入多个word文档时如何按顺序插入Word 2003插入word文件,可选用菜单栏中的插入文件，比如选了10个word文档插入进来了，可是这些文档是无序的进来，即使事先将这些文档名字改成1.doc，2.doc，3.doc.也无济于事，把word属性的标题等删了也无用。怎样才能让他们按照文件名的顺序插入？Word不是无序将它们插入进来的，是有规律可循的，插入时，选择文件的先后顺序是关键，比如，有文档1文档10共10个文档，应该这样选择：按住shift键，先单击10.doc，再单击1.doc，这样就全选它们了，最后得到的顺序是从文档1到文档10。因此，要事先将这些文档名设置有序，方便选取；在“插入”对话框中选择文件的时候按倒序往前选。
