批量合并word文档
Word当中的插入文件，一次只可以合并59个，将更多地Word文档合并成一个文档，方法如下：
1、新建一个Word文档，命名后保存到和要合并的多篇文档所在的文件夹里。
2、按ALT+F11进入宏编辑器。
3、双击左上角的ThisDocument,在右侧的代码区粘贴代码如下：
Sub 合并文档()
Application.ScreenUpdating = False
MyPath = ActiveDocument.Path
MyName = Dir(MyPath & “” & “*.doc”)
i = 0
Do While MyName <> “”
If MyName <> ActiveDocument.Name Then
Set wb = Documents.Open(MyPath & “” & MyName)
Selection.WholeStory
Selection.Copy
Windows(1).Activate
Selection.EndKey Unit:=wdLine
Selection.TypeParagraph
Selection.Paste
i = i + 1
wb.Close False
End If
MyName = Dir
Loop
Application.ScreenUpdating = True
End Sub
4、运行，等候几分钟，即可完成合并。
合并多个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。
因此，要事先将这些文档名设置有序，方便选取；在“插入”对话框中选择文件的时候按倒序往前选。
将一个word文档按页分割成多个word文档
1、在Word里面打开那个需要分割的文档（假设它的文件名叫做“原始文档.doc”）；
2、键入ALT+F11，打开VBA编辑器，选择菜单“插入-模块”；
3、粘贴下面的代码：
Option Explicit
Sub SplitPagesAsDocuments()
Dim oSrcDoc As Document, oNewDoc As Document
Dim strSrcName As String, strNewName As String
Dim oRange As Range
Dim nIndex As Integer
Dim fso 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).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
oNewDoc.SaveAs strNewName
oNewDoc.Close False
Next
Set oNewDoc = Nothing
Set oRange = Nothing
Set oSrcDoc = Nothing
Set fso = Nothing
MsgBox “结束！”
End Sub
4、键入F5运行，看到“完成！”结束。
5、检查当前文档所在路径下是否生成若干名为“原始文档_n.doc”（n代表其对应原始文档中的第几页）的文档，检查它们的内容是否就对应于原始文档每个页面的内容。
转载请注明：江海志の博客 » 使用宏批量解决WORD文档的合并与分拆
