Auto save macro

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

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