WORD报表插入表格和生成的图表吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim app As New MSWord.Application
Dim eApp As New MSExcel.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    If app.ActiveWindow.Selection.Find.Execute("test") Then
        '插入表格,方法1或2

        Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\test.xls")
        Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
        For i As Integer = 7 To 12
            With Ws.UsedRange.Borders(i)
                .ColorIndex = 0
                .TintAndShade = 0
                .Weight = 2
            End With
        Next
        Ws.UsedRange.Font.Size = 12
        Ws.UsedRange.Copy

        app.ActiveWindow.Selection.paste
        app.Visible = True

    End If
catch ex As exception
    msgbox(ex.message)
    app.quit
finally
    eApp.quit
End try

主题：WORD报表插入表格和生成的图表吗？