VBA操作Word关闭活动文档时无文档报错，如何解决？

这问题我之前写Word自动化脚本时也踩过坑！你原来的代码之所以报错，是因为当Word里没有任何打开的文档时，word.ActiveDocument这个对象本身就不存在，VBA根本没法执行Is Nothing的判断，直接就抛出运行时错误了。给你两个实用的解决思路：

方法1：先检查已打开文档的数量 #

最稳妥的方式是先判断Word应用的Documents集合是否有内容，代码如下：

If word.Documents.Count > 0 Then
    word.ActiveDocument.Close SaveChanges:=wdSaveChanges
End If

Documents集合包含了当前Word实例中所有打开的文档，当它的Count大于0时，说明至少有一个文档处于打开状态，这时候访问ActiveDocument就完全安全了。

方法2：用错误捕获跳过无效操作 #

如果想要更简洁的写法，可以借助VBA的错误捕获机制，直接跳过不存在ActiveDocument时的错误：

On Error Resume Next ' 开启临时错误捕获，遇到错误自动跳过当前语句
word.ActiveDocument.Close SaveChanges:=wdSaveChanges
On Error GoTo 0 ' 关闭错误捕获，恢复正常错误提示逻辑

这个方法的好处是代码短，当没有活动文档时，执行Close语句触发的错误会被直接忽略，不会弹出报错窗口。不过要记得用完后关闭错误捕获，不然后续代码的其他错误也会被隐藏，不利于调试。

内容的提问来源于stack exchange，提问作者Programmer