Auto-saving, Repost for Mac

[brent chadwick]

Hey Guys,
I found this code on the web some where, and I works well except for three 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.
When Word is open and there is no open docs it gives me and error-"Run time error 4248-This command is not available because no document is open."
Suggestions? I need this to work on Mac OS.

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

[brent chadwick]

No takers on this problem?