Assign keyboard shortcut

[Dave Davison]

Having to reassign keyboard shortcuts since previous computer crashed [Alt +B = Bullet * easy one hand combo] but where previously the "Assign" tab appeared is now Autocorrect, temporarily I have just used autocorrected BB but where might I find the Assign tab please & where is the "Delete" tab?
(still using windows 7)

[HansV]

Click the Shortcut Key... button to the right of AutoCorrect...

[Dave Davison]

...so simple when one remembers, so frustrating when one does not BUT that's where the lounge come to the rescue,. as ever many thanks Hans really appreciate it. Regards Dave.

[ChrisGreaves]

Dave, I used to assign shortcut keys by program, especially within specific applications.
I can dig out the complete working code if you like. In the meantime here is a sample:-

Code: Select all

Function AssignOnekey(strLetter As String, strCommand As String)
    '    wdKeyShift = 256 = +
    '    wdKeyControl = 512 = ^
    '    wdKeyAlt = 1024 = %
    Dim lngKeyCode As Long
    lngKeyCode = lngGetKeyCodes(strLetter)
    '    CustomizationContext = ThisDocument
    '''    KeyBindings.Add KeyCode:=BuildKeyCode(Asc(strLetter), wdKeyControl, wdKeyShift), KeyCategory:=wdKeyCategoryMacro, Command:=strCommand
    KeyBindings.Add KeyCode:=lngKeyCode, KeyCategory:=wdKeyCategoryMacro, Command:=strCommand
    ' Application.CustomizationContext = NormalTemplate
    'Sub TESTAssignOnekey()
    '    Call AssignOnekey("D", "TypeDateConst")
    '    Call AssignOnekey("T", "TypeTimeConst")
    '    Call AssignOnekey("Y", "TypeYesterday")
    '    Call AssignOnekey("8", "ToggleShowAll")
    '    Call AssignOnekey("4", "TypeTwoWeeks")
    'End Sub
End Function

Win7/Word2003 is no longer a good combination. For the past four years many of my shortcut keys have failed to stick.
I rather suspect that I have passed a limit of some sort, set by Word2003's internal code.

Cheers
Chris