Ziel: Nach einem bestimmten Zeitintervall soll das aktuelle Dokument gespeichert werden und zeitgleich eine Kopie mit Datum, Uhrzeit in einem anderen Verzeichnis angelegt werden.
Starte ich die Sub "AutoOpen" per Hand klappt es tadellos, beim öffnen des Dokumentes wird zwar die Sub Zeitgeber aufgerufen (Message-Box mit test_1 und test_2 erscheint), aber die Funktion Application.OnTime wird anscheinend nicht ausgeführt. Woran kann das liegen?
Sub AutoOpen()
Zeitgeber
End Sub
----------------------------------------------
Sub Zeitgeber()
MsgBox ("test_1")
Application.OnTime When:=Now + TimeValue("00:00:10"), Name:="Automatisch_Sichern"
MsgBox ("test_2")
End Sub
----------------------------------------------
Sub Automatisch_Sichern()
MsgBox ("test_3")
On Error GoTo Fehlermeldung:
ActiveDocument.Save
Dok_Name = ActiveDocument.Name
PathAndFileName = "D:\Sicherung\"
PathAndFileName = PathAndFileName & Format(Date, "yyyy-mm-dd")
PathAndFileName = PathAndFileName & "_" & Format(Time, "HH-mm-ss")
PathAndFileName = PathAndFileName & "_" & Dok_Name
WordBasic.CopyFileA FileName:=WordBasic.[FileName$](), Directory:=PathAndFileName
Zeitgeber
Exit Sub
Fehlermeldung:
MsgBox ("Bitte speichern!")
Zeitgeber
End Sub