Автосохранение в MS Word - VBA

Формулировка задачи:

Всем: Здравствуйте! Видимо, ответ на мою задачку уже неоднократно появлялся. Но не могу его отыскать. Пожалуйста, подскажите, где можно найти (посмотреть) вариант программки (VBA?) для включения в шаблон Normal MS Word (Office 2003), обеспечивающей автоматическое сохранение документа со сходными (но разными) именами в наперед заданной папке (например, на флэшке ) при его закрытии или выходе из приложения.

Решение задачи: «Автосохранение в MS Word»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Public WithEvents appWord As Word.Application
 
Private Sub appWord_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean)
   On Error Resume Next
   Doc.SaveAs FileName:= _
         "E:\" & Left(Doc.Name, Len(Doc.Name) - 4) & _
         "_" & Format(Now, "dd/mm/yyyy_hh/mm") & ".doc"
                
   If Err <> 0 Then
      MsgBox "Флешка отсутствует. Документ не сохранен и закрыт не будет", vbCritical
      Cancel = True 'отмена закрытия документа
   End If
End Sub
                        