Hi
Word do not expose the aftersave event.
But we can handle DocumentBeforeSave to cancel the default dialog and show
ourselves'.
e.g.
Private Sub wdApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As
Boolean, Cancel As Boolean)
SaveAsUI = False
Cancel = True
Dim dlg As Dialog
Set dlg = Application.Dialogs(wdDialogFileSaveAs)
Dim i As Long
i = dlg.Show()
Debug.Print Doc.FullName
End Sub
You may have a try.
Best regards,
Peter Huang
Microsoft Online Partner Support
Get Secure! -
www.microsoft.com/security
This posting is provided "AS IS" with no warranties, and confers no rights.