מדריך התקנה: תאריך אוטומטי במסמכי וורד חדשים

מה המערכת הזו עושה?

הקוד המצורף כאן מיועד לרוץ בתוך תבנית הבסיס של תוכנת וורד במחשב שלכם (Normal). ברגע שההתקנה תסתיים, בכל פעם שתפתחו מסמך וורד חדש וחלק, הקוד יחשב אוטומטית את התאריך של היום, יכניס אותו לכותרת העליונה, יקטין אותו במידה אחת מגודל הגופן הרגיל שלכם ויישר אותו לשמאל בסטייל נקי ואלגנטי.

מסמכים קיימים מוגנים לחלוטין ולא יושפעו מהקוד!

1 הצגת לשונית מפתחים בוורד

כדי שנוכל להדביק קוד בוורד, עלינו לוודא שלשונית הניהול המתקדמת מופעלת. אם היא כבר מופיעה לכם, דלגו לשלב 2.

פתחו מסמך וורד ריק וחדש.
לחצו למעלה בצד ימין (או שמאל באנגלית) על תפריט "קובץ" (File).
רדו למטה ולחצו על "אפשרויות" (Options).
בחלון שנפתח, בחרו בצד בנתיב "התאמה אישית של רצועת הכלים" (Customize Ribbon).
ברשימה הגדולה שמופיעה מצד שמאל, חפשו את התיבה שנקראת "מפתחים" (Developer) וסמנו אותה ב-V (✓).
לחצו על כפתור אישור למטה.

2 הטמעת הקוד המתוקן במערכת

עכשיו נפתח את עורך הקוד הפנימי של וורד ונדביק את המנוע האוטומטי.

לחצו למעלה בסרגל הכלים של וורד על הלשונית החדשה שנוספה: "מפתחים".
לחצו על הכפתור הקיצוני ביותר שנקרא Visual Basic (או לחצו במקלדת על ALT + F11).
בחלון האפור שנפתח, תראו בצד חלונית קטנה עם תיקיות. חפשו את המילה Normal.
לחצו על המילה Normal בקליק ימני בעכבר, בחרו באופציה Insert (הוספה), ואז לחצו על Module (מודול).
במרכז המסך ייפתח לכם דף לבן נקי לחלוטין.
לחצו על כפתור ההעתקה בתיבה השחורה כאן למטה, וסביבת הקוד תועתק במלואה. הדביקו אותה (CTRL + V) בתוך הדף הלבן הריק.

Sub AutoNew()
    On Error Resume Next
    Dim hdr As HeaderFooter
    Dim defaultFontSize As Single
    Dim dateStr As String
    Dim rng As Range
    Dim tempField As Field

    ' משיכת גודל הגופן הרגיל של הוורד שלך
    defaultFontSize = ActiveDocument.Styles(wdStyleNormal).Font.Size

    ' יצירת שדה זמני לשליפת התאריך
    Set rng = ActiveDocument.Range(0, 0)
    Set tempField = ActiveDocument.Fields.Add(Range:=rng, Type:=wdFieldEmpty, Text:="DATE \h \@ ""dd MMMM yyyy""", PreserveFormatting:=False)
    dateStr = tempField.Result.Text
    tempField.Delete

    ' הגדרה שהטקסט יכנס לכותרת העליונה של המסמך
    Set hdr = ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary)
    Set rng = hdr.Range
    rng.Collapse Direction:=wdCollapseStart

    ' הוספת התאריך
    rng.Text = dateStr & vbCrLf

    ' עיצוב התאריך: יישור לשמאל וגודל כתב אחד פחות מהרגיל
    rng.SetRange Start:=hdr.Range.Start, End:=hdr.Range.Start + Len(dateStr)
    rng.ParagraphFormat.Alignment = wdAlignParagraphLeft
    rng.Font.Size = defaultFontSize - 1
    rng.Font.Bold = False
    rng.Font.BoldBi = False
End Sub

לאחר שהדבקתם, סגרו את החלון האפור הגדול בעזרת ה-X האדום בפינה וחזרו לוורד.

3 השלב החשוב ביותר: קיבוע לתמיד

כדי שהקוד יישמר בבסיס התוכנה ולא יימחק, חובה לבצע את סגירת האבטחה הבאה:

סגרו את תוכנת הוורד לחלוטין (לחצו על ה-X של התוכנה עצמה).
בזמן הסגירה, וורד יזהה ששיניתם את תבנית המערכת ויציג לכם הודעה חלונות רשמית:
"האם ברצונך לשמור את השינויים שבוצעו בתבנית Normal?"
חובה ללחוץ על "שמור" (Save)! לחיצה זו מקבעת את המאקרו לתמיד בבסיס המחשב.

                מזל טוב! 🎉 הפעולה הושלמה.

                מהיום, בכל פעם שתפתחו מסמך חדש לחלוטין בוורד, התאריך המעודכן יופיע אוטומטית בצד שמאל למעלה בכותרת מבלי שתצטרכו להקליד תו אחד!

מדריך: הגדרת תאריך אוטומטי בכל מסמך וורד חדש

מה המערכת הזו עושה?

1 הצגת לשונית מפתחים בוורד

2 הטמעת הקוד המתוקן במערכת

3 השלב החשוב ביותר: קיבוע לתמיד