Forums Neueste Beiträge
 

Abfrage offene Dokumente

09/04/2011 - 00:09 von Peter | Report spam
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
 

Lesen sie die antworten

#1 W.Jahn
09/04/2011 - 00:25 | Warnen spam
Am 09.04.2011 00:09, schrieb Peter:

Hat jemand eine Lösung ?




documents.Count


Wolfram

Ähnliche fragen