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

macropod · #2 10-24-2017, 05:04 PM

Well, if the document has never been saved, you'll need the dialogue box. To suppress it for subsequent saves, try something along the lines of:

Code:

Public Sub FileSave()
'Auto Save macro
If ActiveDocument.Path = "" Then Application.Dialogs(wdDialogFileSaveAs).Show
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

brent chadwick · #3 10-24-2017, 05:15 PM

Thanks Paul, having the dialog box show up at the time interval is fine, I expect that. It is when I save in between times that I don't need to have the dialog box show up.

macropod · #4 10-24-2017, 05:26 PM

What don't you want to show - a dialogue box or the message box?

brent chadwick · #5 10-24-2017, 05:28 PM

If I am saving the doc I don't want to see the dialog box with the options-to me it's redundant if I have already chosen to save it-

macropod · #6 10-24-2017, 05:30 PM

In that case:

Code:

Public Sub FileSave()
'Auto Save macro
If ActiveDocument.Path = "" Then
  Application.Dialogs(wdDialogFileSaveAs).Show
Else
  ActiveDocument.Save
End If
DoEvents
Application.OnTime When:=Now + TimeValue("00:10:00"), Name:="FileSave"
End Sub

brent chadwick · #7 10-24-2017, 05:41 PM

I don't think I am explaining what I want to happen correctly. When I forget to save a doc I want the timer to kick in and show me the message box with the option to save or not. There are other times that I save a doc almost every 2 or 3 minutes, that is when I use the Command+S and do not need to have the message box appear. Is this a little clearer? Thanks for your help-

macropod · #8 10-24-2017, 06:06 PM

In that case, you might need to re-assign the Ctrl-S shortcut to point to your macro.

brent chadwick · #9 10-24-2017, 06:16 PM

How bout a simple save macro that I can assign to an other shortcut?

macropod · #10 10-24-2017, 06:56 PM

The point of changing Ctrl-S is so it resets your timer. Using another shortcut means you need to remember to use that instead of Ctrl-S.

brent chadwick · #11 10-25-2017, 08:26 AM

FYI you cannot override the Command+S shortcut on a Mac. So I did another simple macro that I trigger with the Ctrl+S shortcut. I think I can remember this combo.

Code:

Sub Save2()
'Extra Save macro
ActiveDocument.Save
Application.StatusBar = "Brent 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