老师好.我想将 页眉中的 [委托编号] 字符串 用 变量 wtbh 来替换.执行下面的代码(从论坛找到的代码)时,出现错误:
Dim wtbh As String = tb1.Current("委托编号")
Dim tm As String = ProjectPath & "Attachments\报告首页模板\" & mb '指定模板文件
Dim fl As String = "e:\报告\" & wtbh & ".docx" '指定目标文件
Dim wrt As New WordReport(tb2,tm,fl) '定义一个WordReport
wrt.Build() '逐行生成报表
wrt.Show() '显示报表
Dim app As New MSWord.Application
try
Dim doc As Object = app.Documents.Open(fl)
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekCurrentPageHeader
app.ActiveWindow.Selection.WholeStory
If app.ActiveWindow.Selection.Find.Execute("[委托编号]") Then
app.ActiveWindow.Selection.TypeText(Text:= wtbh)
End If
app.ActiveWindow.ActivePane.View.SeekView = MSWord.WdSeekView.wdSeekMainDocument
app.Visible = True
catch ex As exception
msgbox(ex.message)
app.Quit
finally
'app.Quit
End try
--------------------------------- 错误信息如下 -------------------------
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2021.5.29.1
错误所在事件：窗口,报告,B合成报告,Click
详细错误信息：
无法将类型为“Microsoft.Office.Interop.Word.ApplicationClass”的 COM 对象强制转换为接口类型“Microsoft.Office.Interop.Word._Application”。此操作失败的原因是对 IID 为“{00020970-0000-0000-C000-000000000046}”的接口的 COM 组件调用 QueryInterface 因以下错误而失败: 加载类型库/DLL 时出错。 (异常来自 HRESULT:0x80029C4A (TYPE_E_CANTLOADLIBRARY))。
我需要的功能如何实现? 谢谢老师
[此贴子已经被作者于2021/11/7 22:37:02编辑过]
加好友 
发短信
Post By：2021/11/7 22:22:00 [只看该作者]
