运行时错误5981,应用程序定义或对象定义的错误

时间:2019-05-20 14:42:49

标签: excel vba ms-word runtime-error

我正在尝试在Excel和Word中创建脚本,以从Excel中的行创建Word文档。我基于“点”模板创建Word文档。一切都在'dotx'文件格式下正常运行(并且仍然可以正常运行),但是一旦我使用了启用宏的程序,就会遇到5981运行时错误(应用程序定义或对象定义的错误)。

我已经完成了在线研究,并尝试了在Word中启用宏,受信任的位置和受信任的文档的所有修复程序。在尝试访问之前,我已经尝试过DoEvent。我需要访问“ dotm”文件,因为Word中有宏,我需要在打开时运行以格式化文档

有人可以帮助我吗?我没有VBA的经验,因此我已经结束了线程的学习。

New GUI Window

结果... 预期:Word文档已创建并格式化 实际:运行时错误'5981':应用程序定义或对象定义的错误

已更新 来自 Set objword = GetObject(, "Word.Application") If objword Is Nothing Then Set objword = CreateObject("Word.Application") End If On Error GoTo 0 Set objDoc = objword.Documents.Add("C:\Users\OMITTED FOR PRIVACY\Test Report.dotm") 文件的代码:

Test Report.dotm

1 个答案:

答案 0 :(得分:0)

ActiveDocument更改为ThisDocument

  • ActiveDocument是具有焦点的文档(可以是用户单击的任何文档)。
  • ThisDocument是运行此代码的文档。