如何把多个word文档合成一个.doc

《如何把多个word文档合成一个.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、第一种办法：先保证所有需要合并的文件在一个文件夹内—— 1、先打开word新建一篇空白文档; 2、进入word的工具——>宏——>Visual Basic编辑器，将如下代码粘贴到编辑器中，保存,关闭Visual Basic编辑器; 代码如下： Sub hebing() Dim hb, fso, f, f1, s, sf hb = InputBox("请输入您要合并的文件所在的文件夹。", "输入要合并的目录", "比如像C:text这样") If hb <> "" Then   ChangeFileOpenD

2、irectory (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, Attachmen

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

4、”——>“行距”进行调整。 D、在您能够正常进行合并后，可以进入“工具”——>“自定义”——>“命令”——>“类别”再选“宏”，然后拖动命令中的“hebing”宏到任意菜单栏或工具栏，再重新为宏命个名（请见图一），今后点击这个按钮，就能进行Word文档的合并了。 E、该宏只能合并word文档，不能合并中文的文本文档（英文的文本文档可以合并）在win98、2000Office2000中调试成功。第二种办法：先保证所有需要合并的文件在一个文件夹内—— 1、先打开word新建一篇空白文档; 2、点“插入”里的“文件”

5、，选择所要合并的word文档，点插入，OK！