主题：合并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