项目场景：

Word VBA

问题描述：

最近在学习wordVBA时遇到以下问题：运行时错误'4198'：应用程序定义或对象定义错误

这是我写的一段Excel VBA操作Word的代码，作用是打开已存在的word文档，向其中输入内容后保存退出

Sub test2()
Dim wordapp As New Word.Application '建立word对象
wordapp.Documents.Open ("D:\2021\我的文件\VBA\练习\test.docx") '打开word文档
wordapp.Visible = ture
wordap.Selection.EndKey unit:=wdStory '光标移动到文章末尾
wordapp.Selection.TypeText Text:="我的博客" '输入内容"
wordapp.ActiveDocument.Save '保存
wordapp.ActiveDocument.Close '关闭
wordapp.Quit '退出word对象
Set wordapp = Nothing '释放对象
End Sub

该代码中有一句错误，第五句我把对象变量wordapp误写成了wordap，第一次运行时出现如下问题：运行时错误‘424’：要求对象

第二次运行时再次出现问题，运行过程缓慢，按住win+tab键后发现这个窗口：

***.docx 被“***”锁定，无法编辑。请选择：打开只读副本；创建本地副本，稍后合并更改；在原始副本可用时接收通知

点击取消后报错：运行时错误'4198'：应用程序定义或对象定义错误

使用WPS打开word文档时，发现：文档已被“***”锁定，是否以只读模式打开？

原因分析：

猜想如下：

在第一次运行时，程序可以正常打开word文档，但在执行到第五句错误语句时，程序自动退出运行，没有继续往下执行，因此该文件没有被保存，但是被word锁定成了只读模式保护起来。

第二次运行时，因为程序不能正常打开该文档，所以会出现“文件正在使用”的弹窗提示，而且该文档有些时候没有办法编辑、保存以及删除，只有在任务管理器中结束word后台运行才能删除掉。

解决方案：

为了防止调试程序过程中再出现以上问题，可以在程序中加入一个错误转移语句

程序中出现错误后会自动转到skip后面的语句运行，以上问题得到完美解决。

Sub test2()
Dim wordapp As New Word.Application '建立word对象
On Error GoTo skip
wordapp.Documents.Open ("D:\2021\我的文件\VBA\练习\test.docx") '打开word文档
wordapp.Visible = ture
wordap.Selection.EndKey unit:=wdStory '光标移动到文章末尾
wordapp.Selection.TypeText Text:="我的博客" '输入内容"
skip:
wordapp.ActiveDocument.Save '保存
wordapp.ActiveDocument.Close '关闭
wordapp.Quit '退出word对象
Set wordapp = Nothing '释放对象
End Sub

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误解决方法相关推荐

excel2003出现“向程序发送命令时出现错误”解决方法
excel2003出现"向程序发送命令时出现错误"解决方法参考文章: (1)excel2003出现"向程序发送命令时出现错误"解决方法 (2)https:// ...
微信小程序访问豆瓣电影api400错误解决方法
微信小程序访问豆瓣电影api400错误解决方法参考文章: (1)微信小程序访问豆瓣电影api400错误解决方法 (2)https://www.cnblogs.com/bubbleStar/p/610 ...
安装程序出现2502、2503错误解决方法
安装程序出现2502.2503错误解决方法听语音 | 浏览:45460 | 更新:2014-03-20 19:32 | 标签:win8 1 2 3 4 5 6 7 分步阅读在Win8中,在安装ms ...
Win8安装程序出现2502、2503错误解决方法
在Win8中,在安装msi安装包的时候常常会出现代码为2502.2503的错误.其实这种错误是由于安装权限不足造成的,可以这种msi的安装包不像其他exe的安装程序,在安装包上点击"右键&q ...
程序无法运行-报0xc000007d错误解决方法
记录遇到的程序错误并记录如何解决的. 问题: 运行一些XX.exe程序时,程序发生错误并异常中断,同时报"0xc000007d".如图: 排查故障: 排查应用程序是否有问题: 本人 ...
Origin 应用程序无法正常启动(0xc000007b) 错误解决方法（Origin2022）
Origin 2022 错误示例:应用程序无法正常启动(0xc000007b) 安装Microsoft Visual C++ Redistributable Package(即VC++运行库) 解决方 ...
VS2010升级VS2013后，出现没有定义类型“PowerPacks.ShapeContainer”错误解决方法
开发说明: http://msdn.microsoft.com/zh-tw/library/microsoft.visualbasic.powerpacks.aspx Microsoft.Visual ...
安装程序时出现2502 2503错误解决方法
上次安装SVN客户端的时候用兼容模式成功搞定就没有折腾了, 这次安装python的时候又遇到的,其他设置都没有问题呀, 捣鼓折腾查到这错误主要是由于权限不足导致的,还以为是电脑问题. 解决办法: 1. ...
excel vba “运行时错误1004，应用程序定义或对象定义错误”
新做的wintogo系统,装了office2021,拿出以前的一个excel程序跑了一下,报错"运行时错误1004,应用程序定义或对象定义错误",于是网上搜索,总结大部分文章给的建 ...

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误解决方法

项目场景：

问题描述：

原因分析：

解决方案：

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误解决方法相关推荐

最新文章

热门文章

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误 解决方法

项目场景：

问题描述：

原因分析：

解决方案：

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误 解决方法相关推荐

最新文章

热门文章

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误解决方法

wordVBA运行时错误‘4198‘：应用程序定义或对象定义错误解决方法相关推荐