Kann mir jemand weiter helfen?
ich brauche eine Prüfung ob Word bereits gestartet ist oder nicht.
Wenn es gestartet ist, dann soll es geschlossen werden.
Wenn noch nicht geöffnet, dann soll nicht weiter passieren und das Programm weiterlaufen
Vielen Dank schon mal
Gruß Frank
Hallo Frank,
hier eine Idee. Die Frage ist aber auch, was soll mit einem ggf. geöffneten Dokument passieren ...
Im Beispiel wird Word geschlossen, wenn kein oder nur ein Dokument geöffnet ist, ansonsten bleibt Word aktiv.
Code:
Sub Word_Schliessen()
' Word schließen
Dim wd As Object
On Error GoTo Fehler
Set wd = GetObject(, "Word.Application")
Select Case wd.Documents.Count
Case 1: wd.Documents(1).Close SaveChanges:=True
Case Else: Exit Sub
End Select
wd.Quit
Fehler:
End Sub
_________
viele Grüße
Karl-Heinz
Hallo Karl-Heinz,
im Prinzip möchte ich erreichen, das Word komplett
geschlossen wird. Das klappt auch.
Wenn ich das ganze bei geschlossenem Word aufrufe,
bekomme ich eine Fehlermeldung.
Ich werde deinen Cide morgen früh ausprobieren - bin gerade auf Arbeit - Nachtschicht.
Gruß Frank.
Hallo Karl-Heinz,
vielen Dank nochmal für deine Hilfe.
Das passt genau !
Lieben Gruß
Frank