שיתוף | מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית

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

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

Sub PrintCustomKeyBindingsShort()

    Dim kb As KeyBinding
    Dim msg As String
    
    For Each kb In Application.KeyBindings
        If kb.KeyCategory = wdKeyCategoryMacro Then
            Dim keyDetails As String
            keyDetails = kb.KeyString & " — " & Replace(kb.Command, "Normal.NewMacros.", "")
            
            msg = msg & keyDetails & vbCrLf
        End If
    Next kb
    
    MsgBox msg, vbInformation + vbRightToLeft, "מקשי קיצור מותאמים אישית"
End Sub