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

请问能用代码在WORD报表插入表格和已生成的图表吗（EXCEL中可以）？谢谢

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

 

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

 

图表可以用ReplaceWithImage插入。但想插入某一个表（table），该如何？谢谢

方法一：生成一个表

 

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. 能够控制插入WORD文档中的位置吗？

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

麻烦详细点，比如WORD报表模板叫“月报”，在文件目录中attachment文件夹中， ProjectPath & "\Attachments\月报";生成报告在ProjectPath & "\Reports\月报"

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

 

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

等于是在WORD文档中，写一个“test”，代码就会在这次插入表格？

 

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