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

七叶一枝梅

这是我最近发表的一篇稿子，请大家试用一下—— 首先，保证需要合并的文档在同一个文件夹下，那么开始： 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中调试成功。

[此贴子已经被作者于2003-5-30 23:06:12编辑过]

cxffxc

是不是发在电脑报上呀,我在6月2日出版(我今天那到的报纸)电脑报上看到此文.

七叶一枝梅

是发在《电脑报》了，但《电脑报》把"比如像C:\text\这样"这句的引号给搞掉了！！真是的！！ 出了错到时候又有麻烦！！！ 1、实际上原代码中提不提行无所谓，只是要用提行符，怕有朋友不明白。 2、本稿发了之后，我又发现了一个更好的合并办法（更简单），等有空告诉朋友们。

[此贴子已经被作者于2003-6-2 22:59:32编辑过]

七叶一枝梅

本文其实是对我当时发的用COPY命令出错的一个道歉的文章结果《电脑报》的编辑们把它改得像是一个补充文章似的。----------致exffxe兄。

yzlufei

什么是"提行"???

办公之星

七叶大侠，电脑报的稿酬如何？以千字计。

谢谢。

cofe2000

七叶大侠又现word版啦

真是好久不见

cxffxc

以下是引用办公之星在2004-11-23 12:13:00的发言：

七叶大侠，电脑报的稿酬如何？以千字计。

谢谢。

80—100元/千字

办公之星

以下是引用cxffxc在2004-11-23 15:43:00的发言： 80—100元/千字

真是，怎么忘了您这个功勋写家呢，呵呵

谢谢。

白鸽

顶！我正想要该宏。非常谢谢！但有一问题：定制这宏却不能运行。提示被禁止，为什么？我苦，我恼，我惜，我叹！谁能帮我？谢谢！