本示例为 KeyBindings 集合中的每项插入命令名称和组合键字符串。

Dim kbLoop As KeyBinding
CustomizationContext = NormalTemplate
For Each kbLoop In KeyBindings
    Selection.InsertAfter kbLoop.Command & vbTab _
        & kbLoop.KeyString & vbCr
    Selection.Collapse Direction:=wpsCollapseEnd
Next kbLoop