Word VBA 以VBA指定快速鍵

緣起： Word 2016亂翻譯，在快速鍵設定處連快速鍵的指令都翻掉了，造成無法對應的慘況，看能不能藉由VBA來正確指定之

KeyBindings.Add method (Word) | Microsoft Docs

將自定義的「Docs」模組下的「貼上純文字」程序指定給「Shift+Insert」鍵

Sub shortcutKeys() '指定快速鍵
CustomizationContext = NormalTemplate
KeyBindings.Add _
    KeyCategory:=wdKeyCategoryCommand, _
    Command:="Docs.貼上純文字", _
    KeyCode:=BuildKeyCode(wdKeyShift, wdKeyInsert)
End Sub

這樣才能成功指定，否則「目前指定於」的區塊，會呈一片白，表示用手動的指定就無效了。

KeyBinding.KeyCode property (Word) | Microsoft Docs

Application.BuildKeyCode method (Word) | Microsoft Docs

Keycode constants | Microsoft Docs

Word vba keycode at DuckDuckGo

如果Power Point也有提供類似的物件與方法就好了。感恩感恩　南無阿彌陀佛