檢測對象是否與客戶端斷開連接

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。