Well, if the document has never been saved, you'll need the dialogue box. To suppress it for subsequent saves, try something along the lines of:
Code:
Public Sub FileSave()
'Auto Save macro
If ActiveDocument.Path = "" Then Application.Dialogs(wdDialogFileSaveAs).Show
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:10:00"), _
Name:="FileSave"
MsgBox "10 Minutes have elapsed since this document was saved. Do you want this " & ActiveDocument.Name & " document saved now?", 3
Application.StatusBar = "Auto Saved: " & ActiveDocument.Name
End Sub