Word "fernsteuern"
27.06.2004 19:41:00
Harald
Ich versuche mittels beiliegendem Code Word von Excel aus "fernzusteuern".
Das klappt auch ganz gut. Wenn ich Word allerdings nach Erstellen eines ersten Word-Dokuments schließe und dann erneut versuche, ein Word-Dokument von Excel aus zu erstellen (wenn das Makro nochmal ausgeführt wird), dann kommt folgende Fehlermeldung:
Der Remoteserver-Computer existiert nicht oder ist nicht vorhanden.
Sie kommt aber nur, wenn ich Word zwischendurch schließe. Wenn nicht, ist auch das mehrmalige Erstellen von Word-Dokumenten (= mehrmaliges Ausführen des Makros) möglich.
Hat jemand eine Ahnung, warum?
Vielen Dank schon mal
Harald
'Abfrage ob Word bereits gestartet
On Error Resume Next
Set Textprog = GetObject(, "word.application")
If Err.Number = 429 Then 'Fehler 429 wird ausgegeben wenn Applikation nicht gestartet
Set Textprog = CreateObject("word.application") 'Word falls nötig anwerfen
Err.Number = 0
End If
On Error GoTo 0
Textprog.Visible = True 'Word sichtbar machen
Textprog.Activate
Textprog.WindowState = 1
Set Textdok = Textprog.documents.Add 'Neues Dokument erzeugen
.....danach folgen Word-Anweisungen