Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Word VBA

LinkBack Thread Tools Display Modes
Old 07-24-2018, 04:16 PM
brent chadwick brent chadwick is offline Windows 8 Office 2013
Advanced Beginner
Join Date: Mar 2015
Posts: 76
brent chadwick is on a distinguished road
Default Auto-save macro

Hey Guys,

Got this macro somewhere and it works good in a docm. but I want it to work in a dotm. Tried everything I know, not working. here's the code for the macro-

                   Option Explicit
  Private Const mlngTimeout As Long = 5*60
  Public gsngStartTime As Single
  Private msngElapsed As Single
  Public Sub AutoSave()
  msngElapsed = Timer - gsngStartTime
  If ThisDocument.Saved = True Then
  gsngStartTime = Timer
  ElseIf msngElapsed >= mlngTimeout Then
  MsgBox "Remember to save your work regularly."
  gsngStartTime = Timer
  End If
  Application.OnTime When:=Now + TimeValue("00:00:10"), Name:="Project.Module1.AutoSave"
  End Sub
Here's what goes in the document-

 Private Sub Document_Open()
  gsngStartTime = Timer
  Application.OnTime When:=Now + TimeValue("00:00:10"), Name:="Project.Module1.AutoSave"
  End Sub
Any suggestions?
Reply With Quote
Old 07-25-2018, 08:04 PM
gmayor's Avatar
gmayor gmayor is online now Windows 10 Office 2016
Join Date: Aug 2014
Posts: 2,755
gmayor is just really nicegmayor is just really nicegmayor is just really nicegmayor is just really nice

Without lookiing at the metits of the code, did you try changing Document_Open to Document_New given that you don't open templates to use them? Or you could simply use which will work with all your documents.
Graham Mayor - MS MVP (Word)
Visit my web site for more programming tips and ready made processes
Reply With Quote

Thread Tools
Display Modes

Similar Threads
Thread Thread Starter Forum Replies Last Post
Macro to auto-save pdf using text on page + current date hysterical.useless Word VBA 12 02-05-2018 02:17 PM
Auto save macro brent chadwick Word VBA 10 10-25-2017 08:26 AM
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

All times are GMT -7. The time now is 08:28 PM.

Powered by vBulletin® Version 3.8.1
Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
SEO by vBSEO ©2011, Crawlability, Inc. is not affiliated with Microsoft