批量合并word文档（百篇以上！！）

七叶一枝梅

这两天在被人关注么？上面才有人说我的“宏加密“有问题，这里又说我的宏运行有问题。

楼上，我这个宏已过时了，你如果用的是Office xp的话直接在插入文件中全选要插入的文件再插入即可，

当然，如果你用的是WORD2000和话，则我这个宏还有用——

你总不能不降低“宏安全”的情况下就运行吧？那当然会被禁止了。

白鸽

以下是引用七叶一枝梅在2005-4-28 20:33:00的发言：

这两天在被人关注么？上面才有人说我的“宏加密“有问题，这里又说我的宏运行有问题。

楼上，我这个宏已过时了，你如果用的是Office xp的话直接在插入文件中全选要插入的文件再插入即可，

当然，如果你用的是WORD2000和话，则我这个宏还有用——

你总不能不降低“宏安全”的情况下就运行吧？那当然会被禁止了。

我是新手。最近比较关注excel.但目前遇到有关word文档合并的难题，查找到了你的文章，没注意时间。无论是excel还是word我都没运行过宏，听说这玩艺好，今天一试，却不能运行。真不好意思，你说的“你如果用的是Office xp的话直接在插入文件中全选要插入的文件再插入即可，”和“你总不能不降低“宏安全”的情况下就运行吧？那当然会被禁止了。”我都不懂。能机械地告诉我怎么操作吗？谢谢！

七叶一枝梅

XP下打开Word，插入——文件——用鼠标点第一个你要选的文件，按住Shift不松手再点击你要选的最后一个文件，则会选中两者之间的文档，最后确定即可。

也可以直接在选中第一个要插入的文件后，按“Ctrl+A”的快捷键则会全选所有文档！！

注意，，，，，以上只能用于XP以上不能用于2000

关于宏安全——你先打开Word，在工具——宏——安全性中将宏安全设为中或无关闭Word，

再启动Word，运行宏即可。

注意，，，一定要关闭了再启动才行。

白鸽

“按“Ctrl+A”的快捷键则会全选所有文档！！、按住Shift不松手再点击你要选的最后一个文件”都不行，只能一个个的插啊，还有好的办法吗？谢谢，不过现象起我过去“打开、复制、粘贴”要快多了！

mmqm

谢谢。

tangqingfu

QUOTE:

以下是引用七叶一枝梅在2003-5-30 18:49:00的发言：
这是我最近发表的一篇稿子，请大家试用一下——

首先，保证需要合并的文档在同一个文件夹下，那么开始：

1、先打开word新建一篇空白文档;

2、进入word的工具——>宏——>Visual Basic编辑器，将如下代码粘贴到编辑器中，保存,关闭Visual Basic编辑器;
代码如下：

Sub hebing()
Dim hb, fso, f, f1, s, sf
hb = InputBox("请输入您要合并的文件所在的文件夹。", "输入要合并的目录", "比如像C:\text\这样")'这句是没有提行的，请注意。
If hb <> "" Then
  ChangeFileOpenDirectory (hb)
  Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(hb)
    Set sf = f.Files
    For Each f1 In sf
     s = f1.Name
    Selection.InsertFile FileName:=(s), Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False'这句与上面写为同一行，也是没有提行的，请注意。
    Next
Else
  End If
End Sub

3、再次打开工具——>宏,这时就可以看到hebing宏了,运行hebing宏,即开始进行合并.

说明：
A、除中文状态外，代码中的标点符号全为英文半角符号,朋友们在输入时请注意;
B、代码中，从Selection.InsertFile开始，到Attachment:=False这句较长，请不要提行；
C、合并完成之后，如果有格式问题（主要是子文档的标题可能出“见头不见脚”的现象），请执行“编辑”——>“全选”然后执行“格式”——>“段落”——>“行距”进行调整。

D、在您能够正常进行合并后，可以进入“工具”——>“自定义”——>“命令”——>“类别”再选“宏”，然后拖动命令中的“hebing”宏到任意菜单栏或工具栏，再重新为宏命个名今后点击这个按钮，就能进行Word文档的合并了。

E、该宏只能合并word文档，不能合并中文的文本文档（英文的文本文档可以合并，中文的文本文档的合并，我前不久已发过一篇贴子使用VBScript编程实现了。请查看老贴。）在win98、2000\Office2000中调试成功。

谢谢七叶一枝梅兄的分享！

yuyvtul

QUOTE:

以下是引用白鸽在2005-5-2 21:58:00的发言：
“按“Ctrl+A”的快捷键则会全选所有文档！！、按住Shift不松手再点击你要选的最后一个文件”都不行，只能一个个的插啊，还有好的办法吗？谢谢，不过现象起我过去“打开、复制、粘贴”要快多了！

如果出现这种情况，在文件类型中选择“Word文档”(应该默认就是这样)，选中第一个文件，按住Shift，再点击最后一个文件即可。
也可用Ctrl+A，会选中文件夹，但没有影响。
有必要可以在插入文件对话框中，用查找功能。

shonon

谢谢，学习了！！！！！

B2VBA

参考学习，顶

hjj0451

收藏此贴~~