Auto save macro

macropod · #1 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

Thread Tools
Show Printable Version Email this Page
Display Modes
Switch to Linear Mode Hybrid Mode Switch to Threaded Mode

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