Auto-saving, Repost for Mac

brent chadwick · #1 03-04-2017, 07:49 AM

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.

Code:

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 · #2 03-12-2017, 04:32 AM

No takers on this problem?

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Auto-saving word docs	brent chadwick	Word VBA	6	02-22-2017 02:11 PM
HOW TO: Create an auto generated number format for saving templates	Matkinson89	Word	2	09-03-2015 07:07 PM
Outlook 2013 Auto Forward / Auto Redirect emails not working	katm3	Outlook	4	08-07-2015 01:50 AM
Word auto updating fields and changing numbers when saving to PDF	OAEC	Word	1	12-03-2013 08:01 PM
Auto Saving in Word,	Jamal NUMAN	Word	3	01-19-2013 11:50 AM