Как создать hotKey в Word VBA (программно)?

Question

Заголовок - в значительной степени вопрос

Я хочу создать переносную горячую клавишу, то есть, если я вставлю код слова vba, я все равно смогу использовать эту горячую клавишу, что-то вроде application.onkey

в Excel

Answer 1

Объект KeyBindings должен добиться цели.Смотрите пример здесь: http://www.vbaexpress.com/kb/getarticle.php?kb_id=621

' \\ Code for Module1
Option Explicit 

Sub AddKeyBinding() 
    With Application 
         ' \\ Do customization in THIS document
        .CustomizationContext = ThisDocument 

         ' \\ Add keybinding to this document Shorcut: Alt+0
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKey0), _ 
        KeyCategory:=wdKeyCategoryCommand, _ 
        Command:="TestKeybinding" 
    End With 
End Sub 

 ' \\ Code for Module2
Option Explicit 

 ' \\ Test sub for keybinding
Sub TestKeybinding() 
    MsgBox "We have a winner", vbInformation, "Succes" 
End Sub