主题：请教牛人，如何合并多个Word文档

参考代码，不会做的上传具体例子。

Dim app As New MSWord.Application
try
    Dim doc1 = app.Documents.Open("d:\test1.doc")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.Copy
    Doc1.Close
    Dim doc2 = app.Documents.Open("d:\test2.doc")
    app.ActiveWindow.Selection.WholeStory
    app.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app.ActiveWindow.Selection.TypeParagraph
    app.ActiveWindow.Selection.Paste
    app.Documents.save
    app.visible = True
catch ex As exception
    msgbox(ex.message)
    app.quit
finally
   
End try