- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- word报表中的图片 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=93454)
-- 发布时间：2016/11/29 13:35:00
-- word报表中的图片
此主题相关图片如下：qq截图20161129132950.png
如图word报表中引用了个图片列，预览效果如下图
此主题相关图片如下：qq截图20161129133229.png
请教老师，如何能让图片始终浮于文字上方呢？
-- 发布时间：2016/11/29 15:39:00
--
试试
Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open("f:\\111.doc")
For i As Integer =1 To doc.InlineShapes.Count
doc.InlineShapes(i).ConvertToShape
Next
app.Visible = True
-- 发布时间：2016/11/29 16:14:00
--
老师请问这段命名写在哪里？
-- 发布时间：2016/11/29 16:14:00
--
命令写在哪里
-- 发布时间：2016/11/29 16:54:00
--
窗口按钮事件
f:\\111.doc改为自己的文档路径
-- 发布时间：2016/11/29 17:11:00
--
Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open("D:\\管理项目1\\Attachments\\2015版销售合同.doc")
For i As Integer =1 To doc.InlineShapes.Count
doc.InlineShapes(i).ConvertToShape
Next
app.Visible = True
Dim tm As String = ProjectPath & "Attachments\\2015版销售合同.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\2015版销售合同.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("合同主表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Show() \'显示报表
-- 发布时间：2016/11/29 17:13:00
--
老师是这么写命令吗？没有效果哦
-- 发布时间：2016/11/29 17:26:00
--
Dim tm As String = ProjectPath & "Attachments\\2015版销售合同.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\2015版销售合同.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("合同主表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Quit
Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open(fl)
For i As Integer =1 To doc.InlineShapes.Count
doc.InlineShapes(i).ConvertToShape
Next
app.Visible = True
-- 发布时间：2016/12/1 11:29:00
--
以下是引用有点蓝在2016/11/29 17:26:00的发言：
Dim tm As String = ProjectPath & "Attachments\\2015版销售合同.doc" \'指定模板文件
Dim fl As String = ProjectPath & "Reports\\2015版销售合同.doc" \'指定目标文件
Dim wrt As New WordReport(Tables("合同主表"),tm,fl) \'定义一个WordReport
wrt.Build() \'逐行生成报表
wrt.Quit
Dim app As New MSWord.Application
Dim doc As object = app.Documents.Open(fl)
For i As Integer =1 To doc.InlineShapes.Count
doc.InlineShapes(i).ConvertToShape
Next
app.Visible = True
报错：集合所要求的成员不存在
-- 发布时间：2016/12/1 11:36:00
--
上传你生成后的报表测试