Laufzeitfehler 462

[FrankyHB]

Was bedeutet es wenn ich in Word den

Laufzeitfehler 462
Remote-Server-Computer existiert nicht / nicht verfügbar

Dim Wd As Object
If Documents.Count > 0 Then
Set Wd = GetObject(, "Word.Application")
If Not Wd Is Nothing Then
Wd.Visible = True
Wd.Activate
Wd.Application.Quit SaveChanges:=wdSaveChanges
End If
End If


Weiß jemand Rat?

Gruß Frank

[schauan]

Hallöchen,

also, erst mal stolpere ich über die Logik.
Du rufst das Makro ja aus Word heraus auf. Word muss also laufen.
Du prüfst, ob Dokumente geöffnet sind.
Wenn ja, holst Du Dir Word in die Wd - variable
Dann prüfst Du, ob Word dort angekommen ist.
Ich könnte mir jetzt nicht vorstellen, warum nicht, die Prüfung ist eher nicht erforderlich
Ob die nächsten beiden Schritte erforderlich sind, sei mal dahingestellt.
Weil Du am Ende Word wieder beendest, glaube ich mal eher nicht.

Wo kommt denn der Fehler? In der Quit-Zeile?
Hattest Du mehr als ein Dokument offen?
Ist Da noch mehr Code drum herum als Sub... und End Sub?