Excel 2010 VBA-Laufzeitfehler 462: Der Remote-Server-Computer existiert nicht oder ist nicht verfügbar

Question

Ich schreibe in ein Word-Dokument aus Excel, und ich bekomme den Fehler 462, wenn das Makro zum ersten Mal und alle Word-Anwendungen ausgeführt wird sind geschlossen und das Makro wird erneut ausgeführt. Ich habe eine gute Menge der Microsoft-Informationen über nicht qualifizierte Referenzen gelesen. Ich kann nicht herausfinden, was an dieser Linie passiert, um einen Fehler zu verursachen, also hoffe ich, dass jemand es finden kann.

Erklärungen

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 

Wie das Word-Dokument geöffnet/erinnerte

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 

Abschnitt mit dem Fehler

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 

Fehler auf der .NumberPosition Linie ist.

Das Makro ist sehr groß, also poste ich, was ich denke, sind die relevanten Teile, aber ich werde mehr hinzufügen, wenn nötig.

Answer 1

Microsoft sagt, dass Sie jeden Verweis vollständig qualifizieren müssen, siehe: Microsoft error explanation

Ich habe diese Referenzen als hinzugefügt „Wort“. Ergänzungen unten, um Ihren Code:

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 

ich mich nicht erinnern kann, wenn InchesToPoints() eine Word-Funktion ist, aber ich habe gedacht, dass es ist. Ich hoffe, du kommst auf die Idee.

Überprüfen Sie auch den Rest Ihres Codes. Jede nicht qualifizierte Referenz könnte diesen Fehler auslösen. Überprüfen Sie jede referenzierte Bibliothek (z. B. Outlook, Excel, ADODB usw.)

Viel Glück, sie alle zu finden. Dieser Fehler ist ein Biest in großen Codeblöcken. Ich weiß nicht, wie ich die eine Referenz finde, die ich immer vermisse. Wenn jemand anders weiß, bitte teilen.

Lassen Sie uns alle wissen, wie Sie ausmachen. Wir alle müssen teilen, was funktioniert und was nicht.