Auto-saving word docs

dwirony · #2 02-21-2017, 03:05 PM

Try:

Code:

Public Sub FileSave()
ActiveDocument.ActiveWindow.Visible = True
ActiveDocument.Save
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:05:00"), _
Name:="FileSave"
Application.StatusBar = "Saved: " & ActiveDocument.Name
ActiveDocument.Close
Application.Quit
End Sub

I believe this solution will work to save the one active document. Are you trying to save and close ALL documents on your computer at the specific time? In that case, you'll probably need some sort of loop to go through each document and save them. And that's beyond my knowledge of VBA :S

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Saving Merged Files into Sep Docs By Name and into PDF	accessnewbie352	Mail Merge	15	07-02-2015 09:40 PM
Word auto updating fields and changing numbers when saving to PDF	OAEC	Word	1	12-03-2013 08:01 PM
Text Shifting When Saving Word 2007 Docs	DerekS	Word	1	09-21-2013 02:42 AM
Auto Saving in Word,	Jamal NUMAN	Word	3	01-19-2013 11:50 AM
Icons in the desktop move when saving docs	ryochan	Word	0	09-26-2009 02:12 AM