Microsoft Office Forums - View Single Post

gmaxey · 03-06-2015, 02:05 PM

Try this. I also think the Cancel may have been in the wrong place:

Code:

Private Sub m_oThisApp_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
Dim oDialog As Dialog
  If ActiveDocument.FullName = ThisDocument.FullName Then Exit Sub
  If ActiveDocument.Path <> vbNullString Then Exit Sub
  If ActiveDocument.AttachedTemplate = ThisDocument.AttachedTemplate Then
    Set oDialog = Dialogs(wdDialogFileSaveAs)
    With oDialog
      .Format = 13
      .Show
    End With
    'I had the cancel in the wrong place. Suppress the normal dialog.
    Cancel = True
  End If
End Sub