Auto-saving word docs

[brent chadwick]

Hey Guys,
I found this code on the web some where, and I works well except for two things-
When active in another program such as Firefox, it does not save the Word doc.
When working between multiple Word docs, it only saves the active one.


Suggestions?

Public Sub FileSave()
ActiveDocument.Save
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:05:00"), _
Name:="FileSave"
Application.StatusBar = "Saved: " & ActiveDocument.Name
End Sub