Try:
Code:
Public Sub FileSave()
ActiveDocument.ActiveWindow.Visible = True
ActiveDocument.Save
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:05:00"), _
Name:="FileSave"
Application.StatusBar = "Saved: " & ActiveDocument.Name
ActiveDocument.Close
Application.Quit
End Sub
I believe this solution will work to save the one active document. Are you trying to save and close ALL documents on your computer at the specific time? In that case, you'll probably need some sort of loop to go through each document and save them. And that's beyond my knowledge of VBA :S