请问，怎么合并两个word文件？

Question

        Dim WD As Word.Application
        WD = New Word.Application
        WD.Visible = False
        WD.Documents.Open("c:\2.doc")
        WD.Selection.Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd)
        WD.Selection.InsertFile("c:\1.doc")
        WD.ActiveDocument.SaveAs("c:\3.doc")
        WD.Quit()
        WD = Nothing我用以上代码，可以合并，但是1.doc的内容在2.doc的前面。我想把1.doc的内容放在2.doc的后面，不知道该怎么做啊？
另外，有没什么更好的合并代码啊？

Answer 1

你是先打开了 c:\2.doc, 然后直接把 c:\1.doc 插入到光标处
可以考虑把光标移动最后，用下面的代码：    WD.Documents(1).Paragraphs.Add.Range.Select
    WD.Documents(1).Paragraphs(WD.Documents(1).Paragraphs.Count).Range.Select另外，你的代码有问题，VB不允许这样用：
 WD.Selection.Collapse(Direction:=Word.WdCollapseDirection.wdCollapseEnd)
 WD.Quit()

Answer 2

先把光标移动 c:\2.doc 的最后，再把 c:\1.doc 插入到光标处