Key Assignments

Question

Is there any way to automate or otherwise automatically assign macros/commands/styles to specific keys?

I regularly use about 30 such assignments, and when "repair" is needed, the assignments are commonly erased. Setting each assignment individually is a tedious process.

Any suggestions would be most welcome.

John

Answer 1

You can write a macro that contains KeyBindings.Add statements, one for each of the shortcuts you want. Each statement associates a shortcut key combination with a built-in command, a macro, or another kind of action.

The following example is reproduced from https://gist.github.com/pwgerman/49a8f1a9a69c6b0d86eb. You'll have to replace the shortcuts (in the BuildKeyCode function calls) and the commands with your items.

Sub EmacsCustomKeybind()
'
' Emacs1 Macro
' Assigns emacs and other useful keybindings to Keyboard Customization.
'
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB, wdKeyOption, wdKeyControl), _
        KeyCategory:=wdKeyCategoryCommand, Command:="WordLeft"
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyB, wdKeyShift, wdKeyOption, _
        wdKeyControl), KeyCategory:=wdKeyCategoryCommand, Command:= _
        "WordLeftExtend"
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyP, wdKeyShift, wdKeyControl), _
        KeyCategory:=wdKeyCategoryCommand, Command:="LineUpExtend"
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyN, wdKeyShift, wdKeyControl), _
        KeyCategory:=wdKeyCategoryCommand, Command:="LineDownExtend"
    CustomKeybind_DeleteChar
End Sub

Sub DeleteChar()
'
' EditBack1 Macro
' Forward delete one char to the right
'
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.TypeBackspace
End Sub
Sub CustomKeybind_DeleteChar()
'
' Add_delete_macro_shortcut Macro
'
'
    CustomizationContext = NormalTemplate
    KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyD, wdKeyControl), KeyCategory:= _
        wdKeyCategoryMacro, Command:="DeleteChar"
End Sub

Answer 2

Instead of saving these key assignments in your Normal template, you might save them in an add-in template (in Word's Startup folder), where would be less susceptible to being wiped.

Answer 3

Amazingly quick and helpful response. Many thanks! John