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

也就是插入图片而已。参考

 

http://www.foxtable.com/help/topics/2890.htm

 

方法一：生成一个表

 

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

 

方法二：粘贴excel的表格进去

 

Dim wapp As New MSWord.Application
Dim eApp As New MSExcel.Application

try
    Dim Wb As MSExcel.WorkBook = eApp.WorkBooks.Open("d:\test.xls")
    Dim Ws As MSExcel.WorkSheet = Wb.WorkSheets(1) '指定要复制的工作表
    Ws.UsedRange.Copy
   
    Dim fileName = "d:\test.doc"
    Dim doc = wapp.Documents.Open(fileName)
    wapp.ActiveWindow.Selection.WholeStory
    wapp.ActiveWindow.Selection.MoveRight(Unit:=1, Count:=1)
    wapp.ActiveWindow.Selection.TypeParagraph
    wapp.ActiveWindow.Selection.paste
    wapp.Visible = True
catch ex As exception
    msgbox(ex.message)
    wapp.Quit
finally
    eapp.quit
End try

 

1、先find然后选中；

 

2、然后建表

 

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
   
    If app.ActiveWindow.Selection.Find.Execute("test") = False Then
        '插入表格
    End If
   
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
   
End try

红色代码，就是你指定的位置啊

 

If app.ActiveWindow.Selection.Find.Execute("test") = False Then

 

是的，你可以用任何字符作为标识。

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    If app.ActiveWindow.Selection.Find.Execute("test") Then
        '插入表格,方法1或2
        Dim dt As DataTable = DataTables("表A")
        doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, NumColumns:= dt.DataCols.Count)
        With app.Selection.Tables(1)
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
        End With
        For Each dc As DataCol In dt.DataCols
            app.Selection.TypeText(Text:=dc.Name)
            app.Selection.MoveRight(Unit:=12)
        Next
        For Each dr As DataRow In dt.DataRows
            For Each dc As DataCol In dt.DataCols
                app.Selection.TypeText(Text:=dr(dc.Name))
                app.Selection.MoveRight(Unit:=12)
            Next
        Next
       
    End If
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open("d:\test.doc")
    If app.ActiveWindow.Selection.Find.Execute("test") Then
        '插入表格,方法1或2
        Dim dt As DataTable = DataTables("表A")
        doc.Tables.Add(Range:=app.Selection.Range,NumRows:=1, NumColumns:= dt.DataCols.Count)
        With app.Selection.Tables(1)
            .ApplyStyleHeadingRows = True
            .ApplyStyleLastRow = True
            .ApplyStyleFirstColumn = True
            .ApplyStyleLastColumn = True
            .Style = "网格型"
        End With
        For Each dc As DataCol In dt.DataCols
            app.Selection.TypeText(Text:=dc.Name)
            app.Selection.MoveRight(Unit:=12)
        Next
        For Each dr As DataRow In dt.DataRows
            For Each dc As DataCol In dt.DataCols
                app.Selection.TypeText(Text:=dr(dc.Name))
                app.Selection.MoveRight(Unit:=12)
            Next
        Next
       
    End If
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try

 

呃，当你的word是打开的状态，或者是不正常退出word，你可以吧winword进程全部结束，再尝试

 

word、excel不是可以录制宏么？自动生成代码的。

汗