 加好友  发短信
等级：狐神
帖子：5015
积分：25363
威望：0
精华：0
注册：2015/8/18 9:21:00
|
 Post By：2016/7/28 17:32:00 [显示全部帖子]
只能在代码中解析出来，然后用ReplaceWithImage替换图片。最好是用学号做图片的名称，就不用解析了
Dim tm As String = ProjectPath & "Attachments\订单.doc" '指定模板文件
Dim fl As String = ProjectPath & "Reports\订单.doc" '指定目标文件
Dim wrt As New WordReport(Tables("订单"),tm,fl) '定义一个WordReport
Dim sum As Integer
For Each r As Row In Tables("订单").rows '逐行生成报表
sum = sum + r("数量") '逐行累计
wrt.ReplaceWithImage("[图片]","f:\abc.jpg",200,100)
wrt.BuildOne(r)
Next
wrt.Show()
|
|
