以文本方式查看主题

-  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
=====================================
错误提示:

无法将类型为“Microsoft.Office.Interop.Word.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Word._Application”。此操作失败的原因是对 IID 为“{00020970-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 库没有注册。 (异常来自 HRESULT:0x8002801D (TYPE_E_LIBNOTREGISTERED))。

--  作者:有点蓝
--  发布时间:2022/11/23 11:06:00
--  
卸载重新安装一下office,需要安装完整版的,最好是32位版本。不能安装精简版、绿色版的。一般Ghost系统自带的都是精简版。
如果有安装WPS,参考:http://www.foxtable.com/webhelp/topics/3735.htm