检测对象是否与客户端断开连接

Question

我在自动化Excel文件时遇到问题。在Excel中VBA脚本首先打开Word应用程序和Word文档：

Dim wordApp As Object 
    Set wordApp = CreateObject("Word.Application") 

    vPath = Application.ActiveWorkbook.Path 
    Set wordDoc = wordApp.Documents.Open(vPath & "\test.doc") 

然后我打电话从Excel文件通过一些数据的Word文档中的子程序：

Call wordApp.Run("StartWithData", variable1, variable2) 

如果Excel检测发生错误在子程序中，我关闭从Excel的Word文档和Word应用中的标签我称之为Err1：

On Error Goto Err1 
    'all the code from above 
    Exit Sub 

    Err1: 
    wordDoc.Close wdCloseWithoutSaving 
    wordApp.Quit SaveChanges:=wdDoNotSaveChanges 
    Set wordDoc = Nothing 
    Set wordApp = Nothing 

这工作完全正常ü正常情况下;但是，如果Word文档或应用程序是在Err1标签执行之前关闭（如用户手动关闭文档），我收到以下错误：

Run-time error '-2147417848 (80010108)':
Automation error The object invoked has disconnected from its clients.

这是非常合情合理的，因为wordApp和/或wordDoc变量仍然引用应用程序和文档对象，并且这些对象不再存在（但也不被认为是Nothing）。

所以，这里是我的查询：有没有办法检查是否有一个对象已经从运行时错误发生之前已断开其客户端，以避免依赖于on error resume next？

Such as: 

    If Not isDisconnected(wordDoc) Then 
    wordDoc.Close wdCloseWithoutSaving 
    End If 

    If Not isDisconnected(wordApp) Then 
    wordApp.Quit SaveChanges:=wdDoNotSaveChanges 
    End If 

更新1：

看着omegastripes' answer后，我意识到，当文档（wordDoc）是断开了对象上面仅给出的错误发生。如果Word应用程序（wordApp）是什么断开了，我得到以下错误：

Run-time error '462':

The remote server machine does not exist or is unavailable

Answer 1

考虑下面的例子：

Sub Test() 
    Dim wordApp As Object 
    Dim wordWnd As Object 
    Dim wordDoc As Object 

    Set wordApp = CreateObject("Word.Application") 
    Set wordWnd = wordApp.Windows ' choose any object property as indicator 
    wordApp.Visible = True ' debug 
    Set wordDoc = wordApp.Documents.Open(Application.ActiveWorkbook.Path & "\test.doc") 
    MsgBox IsObjectDisconnected(wordWnd) ' False with opened document 
    wordDoc.Close 
    MsgBox IsObjectDisconnected(wordWnd) ' False with closed document 
    wordApp.Quit ' disconnection 
    MsgBox IsObjectDisconnected(wordWnd) ' True with quited application 
End Sub 

Function IsObjectDisconnected(objSample As Object) As Boolean 
    On Error Resume Next 
    Do 
     IsObjectDisconnected = TypeName(objSample) = "Object" 
     If Err = 0 Then Exit Function 
     DoEvents 
     Err.Clear 
    Loop 
End Function 

似乎任何类型的检测变量，其引用的内在Word对象，如.Documents,.Windows,.RecentFiles等等，在文档关闭或应用程序退出命令被立即调用后，可能会抛出错误14：Out of string space，而Word应用程序正在处理该命令。对Application对象进行同样的检测，也可能会挂起Excel应用程序。

在这个例子中TypeName()调用包装成OERN循环，应该跳过不相关的结果得到明确的断线反馈，依靠类型名，但不是在错误号。为避免挂起，.Windows属性被检查而不是Application。