Automatisch speichern Word - VB6

Hallo liebe Experten!
Mit meinem Problem habe ich schon mehrere Foren durchsucht bin aber nicht so recht fündig geworden.
Ich habe ein VBA Skript, welches den Dialog Speichern unter aufruft und einen Speicherort/Dateinamen vorgibt. (Skript am Ende des Artikels).
Nun möchte ich die User-Interaktionen von Word herausnehmen, sprich:

  • Automatisches Speichern unter dem Vorschlag (Keine Nachfrage oder
    Änderung durch User möglich)

  • Automatisches Speichern unter dem Vorschlag beim Beenden des
    Dokumentas oder des Programmes (Ebenfalls keine Nachfrage oder
    Änderung durch User)

Ich hoffe mir kann jemand weiterhelfen, da meine VB Kenntnisse nur sehr gering sind. Ich habe schon mit onclose und autoclose events experimentiert aber ohne Erfolg.

Danke im Vorraus

Raphael

**************************************
VB - Skript
Sub FileSave()

If ActiveDocument.Path = „“ Then
FileSaveAs
Exit Sub
End If

End Sub
Sub FileSaveAs()

Dim Vorschlag As String
Const Pfad As String = „D:\Test“

ChangeFileOpenDirectory (Pfad)

Vorschlag = „Top-“ & Format$(Now, „yyyy-mm-dd-“) & ActiveDocument.FormFields(„Text8“).Result & „neu.doc“

With Dialogs(wdDialogFileSaveAs)
.Name = Vorschlag
.Show
End With

End Sub

Hallo versuche es mal mit Application.DisplayAlerts = False, dass sollte den Speicheraufruf von Word unterdrücken. Weiter gebe es die möglichkeit von Application.saved=true, hiermit kannst du dem Programm vorgaukeln, dass es schon gespeichert wurde.
Grüsse Sebastian

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]