Abfrage offene Dokumente

[Peter]

Hallo,
ich habe ein Dokument das nach 30 Minuten automatisch geschlossen werden
soll.
Mach ich mit folgenden Code :
Private Sub Document_Open()
Application.OnTime When:=Now + TimeValue("00:30:00"), Name:="Schliessen"
End Sub

Sub Schliessen()
Application.ActiveDocument.Save
Application.ActiveDocument.Close
End Sub

Ich möchte aber das Word komplett geschlossen wird wenn nur
dieses eine Dokument geöffnet ist.
möglich wäre hier:
Application.Quit
Wenn aber ein zweites Dokument geöffnet ist wird dieses durch
diesen Befehl dann auch geschlossen.

Ich bräuchte eine Abfrage wie :
wenn nur ein Dokument geöffnet dann Application.Quit sonst
Application.ActiveDocument.Close

Hat jemand eine Lösung ?

mfg
Peter

[W.Jahn]

Post by Peter
Hat jemand eine Lösung ?

documents.Count


Wolfram

[Peter]

Post by W.Jahn

Post by Peter
Hat jemand eine Lösung ?

documents.Count

Sorry, wäre dankbar für die ganze Abfrage, meine Kenntnisse
reichen leider nicht,
danke

[Peter]

Post by W.Jahn
documents.Count

Danke ich habs !

If Documents.Count = ("1") Then Application.Quit Else
Application.ActiveDocument.Close

mfg
Peter

[Rainer Georg Blankenagel]

Post by Peter
wenn nur ein Dokument geöffnet dann Application.Quit sonst
Application.ActiveDocument.Close
Hat jemand eine Lösung ?

Mach einfach irgendwas mit Documents(1). Wenn das einen Fehler produziert,
dann .Quit, sonst .Close


Rainer