Auto-saving word docs

brent chadwick · #1 02-21-2017, 02:27 PM

Hey Guys,

I found this code on the web some where, and I works well except for two things-
When active in another program such as Firefox, it does not save the Word doc.
When working between multiple Word docs, it only saves the active one.
Suggestions?

Code:

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

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

brent chadwick · #3 02-21-2017, 05:48 PM

When run this stalls on the second line highlighting "Visible"

Code:

ActiveDocument.ActiveWindow.Visible = True

and gives me the "Method or data member not found."
I am only trying to save all open docs, not close or quit Word-

gmayor · #4 02-21-2017, 10:07 PM

See http://www.gmayor.com/automatically_backup.htm which will do as you require (in Excel also).

brent chadwick · #5 02-22-2017, 05:13 AM

Slight problem Graham, I'm using this on a Mac-

gmayor · #6 02-22-2017, 05:57 AM

Your post says Office 2013 on Windows 8?

brent chadwick · #7 02-22-2017, 02:11 PM

I also run Mac, this macro I need for the Mac. Forgot to mention it in the first post-my bad-

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
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