主题：[求助]文件列的word文件中的内容如何加入报表中？

参考

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=70797&skin=0

如果是赋值word文档，参考

Dim app1 As New MSWord.Application
Dim app2 As New MSWord.Application
try
    Dim doc = app1.documents.add
    Dim tdoc = app2.Documents.Open("d:\test.doc")
    app2.ActiveWindow.Selection.WholeStory
    app2.ActiveWindow.Selection.Copy
   
    app1.ActiveWindow.Selection.WholeStory
    app1.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    app1.ActiveWindow.Selection.TypeParagraph
    app1.ActiveWindow.Selection.paste
    app1.Visible = True

    app2.quit
catch ex As exception
    msgbox(ex.message)
    app1.Quit
    app2.Quit
finally
   
End try