如何在Word VBA中創建hotKey（以編程方式）？

Question

標題是相當多我想要做一個便攜式的熱鍵，這意味着如果我貼字VBA代碼 我仍然可以使用熱鍵，如Excel的application.onkey

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