Que tal testar o parâmetro SaveAsUI?
Private Sub appWord_DocumentBeforeSave(ByVal Doc As Document, SaveAsUI As Boolean, Cancel As Boolean)
If SaveAsUI = True Then
'A janela de SaveAs apareceu
Else
'A janela de SaveAs apareceu
End If
End Sub
Felipe Costa Gualberto - http://www.ambienteoffice.com.br