Microsoft Office Forums

Go Back   Microsoft Office Forums > Microsoft Word > Word VBA

Reply
 
LinkBack Thread Tools Display Modes
  #1  
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-


Code:
                   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
  ThisDocument.Save
  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-




Code:
 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
  #2  
Old 07-25-2018, 08:04 PM
gmayor's Avatar
gmayor gmayor is offline Windows 10 Office 2016
Expert
 
Join Date: Aug 2014
Posts: 2,619
gmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the roughgmayor is a jewel in the rough
Default

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 http://www.gmayor.com/automatically_backup.htm which will work with all your documents.
__________________
Graham Mayor - MS MVP (Word)
Visit my web site for more programming tips and ready made processes www.gmayor.com
Reply With Quote
Reply

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 07:38 PM.


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