以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  WORD报表插入表格和生成的图表吗？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=76027)
--  作者：一笑
--  发布时间：2015/10/20 11:36:00
--  WORD报表插入表格和生成的图表吗？
请问能用代码在WORD报表插入表格和已生成的图表吗（EXCEL中可以）？谢谢
--  作者：大红袍
--  发布时间：2015/10/20 11:45:00
--  

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

 

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

 
--  作者：一笑
--  发布时间：2015/10/20 11:55:00
--  
图表可以用ReplaceWithImage插入。但想插入某一个表（table），该如何？谢谢
--  作者：大红袍
--  发布时间：2015/10/20 12:25:00
--  

方法一：生成一个表

 

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

 
--  作者：一笑
--  发布时间：2015/10/21 9:02:00
--  
1. 能够控制插入WORD文档中的位置吗？
2. WORD报表模板中能对插入表格的位置进行设置吗？谢谢
--  作者：大红袍
--  发布时间：2015/10/21 9:12:00
--  

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
--  作者：一笑
--  发布时间：2015/10/29 11:04:00
--  
麻烦详细点，比如WORD报表模板叫“月报”，在文件目录中attachment文件夹中， ProjectPath & "\\Attachments\\月报";生成报告在ProjectPath & "\\Reports\\月报"
Dim app As New MSWord.Application
try
    Dim doc = app.Documents.Open(ProjectPath & "\\Reports\\月报")
    If app.ActiveWindow.Selection.Find.Execute("test") = False Then
        \'插入表格，方法1或2
    End If    
    app.Visible = True
catch ex As exception
    msgbox(ex.message)
    app.Quit
finally
End try
是这样吗？表格在报表中有位置要求的，代码如何控制的？谢谢
--  作者：大红袍
--  发布时间：2015/10/29 11:07:00
--  

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

 

If app.ActiveWindow.Selection.Find.Execute("test") = False Then
--  作者：一笑
--  发布时间：2015/10/29 11:26:00
--  
等于是在WORD文档中，写一个“test”，代码就会在这次插入表格？
--  作者：大红袍
--  发布时间：2015/10/29 11:38:00
--  
以下是引用一笑在2015/10/29 11:26:00的发言：
等于是在WORD文档中，写一个“test”，代码就会在这次插入表格？

 

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