אצלי לפחות, ונראה לי שאצל כל המשתמשים הכבדים בוורד, קורה לעיתים שתבנית הNormal נפגמת פתאום, והוורד מייצר אחת חדשה כזו.
ואז מאבדים דברים חשובים מאד וצריך להתחיל מאפס.
- מאקרואים מותאמים אישית, עמל של שעות לאורך שנים.
- מקשי קיצור להפעלת פקודות ופקודות מאקרו, מעייף לשחזר הכל.
הנה דוגמה: https://tchumim.com/post/147744
בחסות GPT מצ"ב מאקרו לגיבוי של תבנית הנורמל, אצלי הכנסתי אותו בסרגל גישה מהירה ובכל פעם שאכניס מאקרו חדש לא נותר לי אלא ללחוץ על גיבוי...
Sub BackupNormalDotm()
Dim fso As Object
Dim sourcePath As String
Dim destPath As String
Dim fileName As String
Dim dateTimeStamp As String
Set fso = CreateObject("Scripting.FileSystemObject")
sourcePath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\"
destPath = "C:\Users\MyUser\AppData\Roaming\Microsoft\Templates\NormalBackup\"
dateTimeStamp = Format(Now, "dd_mm_yy_hh_mm_ss")
fileName = "Normal.dotm"
If Not fso.FolderExists(destPath) Then
fso.CreateFolder destPath
End If
If fso.FileExists(sourcePath & fileName) Then
fso.CopyFile sourcePath & fileName, destPath & Left(fileName, Len(fileName) - 5) & "_" & dateTimeStamp & ".dotm"
MsgBox "הקובץ הועתק בהצלחה ונוסף לתיקיית הגיבוי."
Else
MsgBox "הקובץ המקורי אינו קיים."
End If
Set fso = Nothing
End Sub