|
以下是引用七叶一枝梅在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中调试成功。
谢谢七叶一枝梅兄的分享！ | 
楼主: 七叶一枝梅
沪公网安备 31011702000001号 沪ICP备11019229号-2
楼主
发表于 2005-4-28 21:23
