キーバインディングリスト異常

こんにちは、私はテンプレートでカスタムキーバインディングを管理するためのアドインと一緒にいかがかっています.私はWordのVBA Application.ListCommandsメソッドを発見しました.

クリーンル通常のテンプレート(カスタムキービングなし)から始めます.モジュール "mymacros"とプロシージャサブテスト1

サブテスト1()

MsgBox "Test1"

終了SUB

次に、次の手順を追加しました.

この手順では5つのカスタムキーバインディング

1.ショートカットCTRL + ALT + A + Pでフォントサイズを設定するためのコマンドカテゴリkeybinding

2.ショートカットCTRL + ALT + B

3.フォントカテゴリ鍵ベインディングショートカットCTRL + ALT + D

4.ビルディングブロックを挿入するためのオートテキストカテゴリ鍵ベインディング「機密」CTRL + ALT + E

5.Shortcut Ctrl + Alt + F

これが問題です.5つのキーバインドすべてが確実に作成され、定義されているように機能します.ただし、Application.ListCommandsが実行されると、結果の表の「all」コマンドの表には、上で定義されたものすべてが含まれていますが、マクロキーボインディングは含まれていません.

誰でも理由がありますか?

ありがとう.

サブBuildKB()
keyBindingとしての薄暗いOKEY
ドキュメントとしてDIM ODOC
薄型範囲
CustomizationContext= NormalTemplate
keybindings.add 1、 "fontsize"、 "1601" ,24 "
keybindings.add 2、 "normal.maCros.test1"、 "1602"
keybindings.add 3、 "Arial"、 "1604"
keybindings.add 4、 "Confidential"、 "1605"
keybindings.add 5、 "見出し1"、 "1606"
keybindingsの各OKEYの場合
OKEY.KEYCATEGORY= 2 [マクロ]を「マクロ」の場合 msgBox "私はマクロ鍵ベインダーです.私は存在します、ここに私のパラメータがあります:"&key.keycategory&"-"&key.command&"-"&okey.keystring

の場合は終了 次の
Application.ListCommands ListAllCommands:= 0
ODOC= ActiveDocumentを設定する
set orng= odoc.range
orng.find
.text= "confidential"


MsgBox "Bingoです.私はAutextext keybindingです.私はリストにあります."


MsgBox「そのリストに表示されないのはなぜ私の兄弟姉妹をやるのですか」、VBQuestion + Vbokonly、 "?"

の場合は終了

set orng= odoc.range
orng.find
.text= "normal.maCros.test1" "


MsgBox "ビンゴ.私はマクロ鍵ボインディングです.私はリストにあります."


MsgBox「そのリストに表示されないのはなぜ私の兄弟姉妹をやるのですか」、VBQuestion + Vbokonly、 "?"

の場合は終了

lbl_exti:


終了SUB