'Place all the code in Normal.Dot
 'Place this code is a Class Module named Class1
 
Option Explicit 
 
Public WithEvents App As Application 
 
Private Sub App_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean) 
     
    Dim SaveCopy        As VbMsgBoxResult 
    Dim Title           As String 
    Dim Prompt          As String 
     
    If Flag = True Then 
        Exit Sub 
    End If 
    Prompt = "Do you want to save a copy to the A: drive?" 
    Title = "Confirm Procedure" 
     
    SaveCopy = MsgBox(Prompt, vbYesNo + vbQuestion, Title) 
    If SaveCopy = vbYes Then 
        Application.OnTime Now + TimeValue("00:00:01"), "AfterSave" 
    End If 
     
End Sub 
 
 'Place this code in a Standard Module
 
Option Explicit 
 
Public Flag         As Boolean 
 
Sub AfterSave() 
     
    Flag = True 
    ActiveDocument.SaveAs FileName:="A:\" & ActiveDocument.Name 
    Flag = False 
     
End Sub 
 
 'Place this code in the ThisDocument module
 
Option Explicit 
 
Dim WdApp           As New Class1 
 
Private Sub Document_New() 
     
    Set WdApp.App = Word.Application 
     
End Sub 
 
Private Sub Document_Open() 
     
    Set WdApp.App = Word.Application 
     
End Sub