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等）

祝他们找到所有的好运。 此错误是大型代码块中的野兽。 我不知道一种找到我总是想念的参考的方法。 如果其他人知道，请分享。

让我们都知道您的表现。 我们每个人都需要分享有效的方法和无效的方法。