无奈的原因也不是人家没有做好，而是可能我当时没有说清楚，所以，本应该做成一个的Word档，却被按照每个单位做的一样做成了N个（参与考试的单位数量）。

    恰逢公司的R君和P君都很忙碌，所以，不好再安排别的工作，但是，我不是笨人、更不是呆人，我才不会自己傻傻的一个一个的把文件合并起来。写程序？更笨！写出来，黄瓜菜都凉了。下面教你一招：

    1、建立一个新的Word文档。

    2、选择“工具”--〉“宏”--〉“创建一个新宏”，我们给他起个名字叫“hebing”。

    3、到此我们看见一个类似VB6.0一样的编译环境。并且会有一个名字为hebing得过程。我们在过程中将下面的代码Copy进去。

                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
    4、关闭VB宏编辑环境（或者您关闭此新文档也可以），然后再打开此文档。

    5、再选择“工具”--〉“宏”--〉“运行”（注意运行名字为hebing的宏），我们会发现出现了一个对话框，然后，我们只要输入你要合并的文件所对应的文件夹并且点“确定”就可以了。

    真是方便的很啊，方便别人的时候就是自己成长的时候！送给所有程序员。