参考：http://www.foxtable.com/webhelp/scr/2890.htm
Dim tm As String = "f:\123.docx" '指定来源文件
Dim fl As String = "f:\123-1.docx" '指定保存后的文件-不能和来源文件同名
Dim wrt As New WordReport(Tables("表A"),tm,fl) '定义一个WordReport，随便指定一个表
wrt.ReplaceWithImage("[www]","f:\EP01.jpg",100,100)
wrt.Show()
不想打开文档就这样
Dim tm As String = "f:\123.docx" '指定模板文件
Dim fl As String = "f:\123-1.docx"
Dim wrt As New WordReport(Tables("出库"),tm,fl) '定义一个WordReport
wrt.ReplaceWithImage("[www]","f:\EP01.jpg",100,100)
wrt.BuildOne(Tables("出库").rows(0))
wrt.quit
加好友 
发短信
Post By：2016/12/9 11:36:00 [只看该作者]
