שיתוף | מאקרו לגיבוי תבנית Normal

[מעלה ומוריד]

אצלי לפחות, ונראה לי שאצל כל המשתמשים הכבדים בוורד, קורה לעיתים שתבנית ה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

[מעלה ומוריד]

פוסט זה נמחק!

[דאציג]

@מעלה-ומוריד
נותן לי שגיאה:

[WWW]

@דאציג המילה MyUser צריך לשנות לשם המשתמש שלך.
(או לחילופין צריך להכניס משתנה סביבה של תיקיית המשתמש, מעניין ש GPT לא הציע את זה).

[דאציג]

@WWW
לתקיית תבניות יש את זה:

%appdata%\Microsoft\Templates

לתקייה השניה איני יודע.

[דאציג]

@WWW

עריכה:
לכאורה גם לתקייה השניה צריך להיות אותו קישור, אך כאשר החלפתי זאת, הופיע אותה שגיאה דלעיל, כך שיש דברים בגו מדוע GPT לא הציע את זה...