טעינת מאקרו באמצעות תבנית WORD

amiros

New member
טעינת מאקרו באמצעות תבנית WORD

שלום לכולם,

עובד עם word 2016 ו- windows 7
אני מחפש דרך לבצע שמירה מלאה כל מספר דקות קבוע במסמכים פעילים.
אז מצאתי את הקוד הבא והוספתי אותו לתוך תבנית DOTM שיצרתי והעתקתי את התבנית לתיקיית word/startup
נראה שהתבנית נטענת בעלייה, אבל לא מבצעת את השמירה כל 20 שניות.
אם אני שם את הקוד בתוך normal.dotm המאקרו עובד והמסמך נשמר כל 20 שניות.
מה אני מפספס כאן?


תודה רבה
אמיר

Public Sub FileSave()
ActiveDocument.Save
DoEvents
Application.OnTime _
When:=Now + TimeValue("00:00:20"), _
name:="FileSave"
Application.StatusBar = "Saved: " & ActiveDocument.Name
End Sub
 
למעלה