以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 打开word出错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=184045) |
-- 作者:cyrollin -- 发布时间:2022/11/23 11:05:00 -- 打开word出错 If Tables("客户数据").current IsNot Nothing Then \'如果存在符合条件的行 Dim xm As String = Tables("客户数据").current("第一列") Dim htbh As String = Tables("客户数据").current("合同编号") Dim tm As String = ProjectPath & "Attachments\\合同模板.docx" \'指定模板文件 Dim fl As String = ProjectPath & "Reports\\合同\\" & xm & "-" & htbh & ".docx" \'指定目标文件 Dim wrt As New WordReport(Tables("客户数据"),tm,fl) \'定义一个WordReport wrt.Build() wrt.Show() \'显示报表 End If ===================================== 错误提示: |
-- 作者:有点蓝 -- 发布时间:2022/11/23 11:06:00 -- 卸载重新安装一下office,需要安装完整版的,最好是32位版本。不能安装精简版、绿色版的。一般Ghost系统自带的都是精简版。 如果有安装WPS,参考:http://www.foxtable.com/webhelp/topics/3735.htm
|