Excel 2010 VBA運行時錯誤462：遠程服務器計算機不存在或不可用

Question

我正在從Excel中寫入Word文檔，如果該宏第一次運行完成並且所有Word應用程序都關閉並且該宏重新運行，我將收到462錯誤。 我閱讀了大量有關不合格引用的Microsoft信息。 我無法弄清楚這行將導致錯誤的原因，因此我希望有人能夠找到它。

聲明書

Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim i As Integer
Dim titleCount As Long
Dim Count3, Count4, Count5, endCount3, endCount4, endCount5 As Long
Dim QLRVar As New Scripting.Dictionary
Dim IsOffice2013 As Boolean: IsOffice2013 = False
Dim IsOffice2010 As Boolean: IsOffice2010 = False

Word文檔的打開/調用方式

On Error Resume Next
Set wrdApp = GetObject(Class:="Word.Application")
On Error GoTo 0
If wrdApp Is Nothing Then
    Set wrdApp = CreateObject("Word.Application")
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
Else:
    wrdApp.Visible = True
    Set wrdDoc = wrdApp.Documents.Add
End If

有錯誤的部分

With wrdApp.ListGalleries(wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
    .NumberFormat = "%1. "
    .TrailingCharacter = wdTrailingTab
    .NumberStyle = wdListNumberStyleArabic
    .NumberPosition = InchesToPoints(0)
    .Alignment = wdListLevelAlignLeft
    .TextPosition = InchesToPoints(0)
    .TabPosition = wdUndefined
    .ResetOnHigher = 0
    .StartAt = 1
    .LinkedStyle = "Heading 0"
End With

.NumberPosition行上有錯誤。

宏非常大，因此我發布了我認為是相關部分的內容，但如有需要，我將添加更多內容。

Answer 1

Microsoft說您必須完全限定所有參考，請參閱： Microsoft錯誤說明

我已將這些引用添加為“單詞”。 以下是您代碼的補充：

With wrdApp.ListGalleries(Word.wdOutlineNumberGallery).ListTemplates(1).ListLevels(1)
    .NumberFormat = "%1. "
    .TrailingCharacter = Word.wdTrailingTab
    .NumberStyle = Word.wdListNumberStyleArabic
    .NumberPosition = Word.InchesToPoints(0)
    .Alignment = Word.wdListLevelAlignLeft
    .TextPosition = Word.InchesToPoints(0)
    .TabPosition = Word.wdUndefined
    .ResetOnHigher = 0
    .StartAt = 1
    .LinkedStyle = "Heading 0"
End With

我不記得InchesToPoints（）是否是Word函數，但我猜是這樣。 希望您能明白。

還要檢查其余的代碼。 任何不合格的參考都可能觸發此錯誤。 檢查每個引用的庫（例如Outlook，Excel，ADODB等）

祝他們找到所有的好運。 此錯誤是大型代碼塊中的野獸。 我不知道一種找到我總是想念的參考的方法。 如果其他人知道，請分享。

讓我們都知道您的表現。 我們每個人都需要分享有效的方法和無效的方法。