עזרה | הקלטת מאקרו הפיכת שפה לעברית

[איש שלו']

אני משתמש בהקלטות מאקרו פרטיות לסדרות של פעולות קבועות [למשל עיצוב מסמך עם עיצובי ברירת המחדל שלי, מחיקת שורות ריקות ותיקוני נוסח].

פעולה אחת אינני מצליח להקליט לה מאקרו למרות שהיא פשוטה:
החלף - שפה אנגלית - שפה עברית.
למרות שבמסמך הפתוח [שבו אני מקליט את רצף הפעולות] באמת הפעולה חלה ומועילה, אבל במסמכים הבאים כאשר אני בוחר את המאקרו - זה לא פועל שום דבר.
מצורף המאקרו כפי שיצא בהקלטת מאקרו של וורד [אינני יודע לנסח קוד].

מאקרו לעברית.txt

[מניין]

הנה מאקרו פשוט לשינוי השפה עברית - אנגלית, אנגלית - עברית.

Sub שינוי_שפה()
    Static toggleState As Boolean ' משתנה סטטי שמעקב אחרי המצב

    If toggleState Then
        ' לחיצה שניה – מאקרו לשפה עברית
        Call שינוי_שפה_לעברית
    Else
        ' לחיצה ראשונה – מאקרו לשפה אנגלית
        Call שינוי_שפה_לאנגלית
    End If
    
    ' הפעלת מצבים מחזוריים – אם הוא עבר מ-True ל-False ולהפך
    toggleState = Not toggleState
End Sub
Sub שינוי_שפה_לעברית()
   Application.Keyboard (1037)
End Sub
Sub שינוי_שפה_לאנגלית()
   Application.Keyboard (1033)
End Sub

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

Sub שינוי_שפה_לעברית()
   Application.Keyboard (1037)
End Sub
Sub שינוי_שפה_לאנגלית()
   Application.Keyboard (1033)
End Sub