Auto save macro

brent chadwick · #1 10-24-2017, 04:27 PM

Hey Guys,
Working on an auto save macro on Mac. This code works well so far except for two things: you need to save the first time manually with the Command +S, and when you do save manually later on it gives me the dialog box, which is annoying since if I am saving manually I don't want to see the dialog box. Suggestions?

Code:

Public Sub FileSave()
'Auto Save macro
ActiveDocument.SaveAs
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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to save as pdf with ability to choose save as folder	rvessio	Word VBA	4	07-25-2016 12:37 PM
Auto save has done dark - does not work for me	bitraker	Word	1	12-28-2015 09:40 AM
Auto correct will not save	shewoman	Word	4	10-28-2015 03:51 AM
I was working on it had my auto save set to every 4 mins and all was well	VernonMax	Word	2	05-18-2015 08:58 AM
Auto save emails to server	Chuuuuck	Outlook	1	11-03-2011 02:17 PM