现有一个表，每行对应一个Word文档，存在相同目录下，有一“选择”列，希望被勾选的行，通过一个按钮能自动将相应的Word文档合并成一个Word文件输出。请教牛人，怎样实现多个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