Context 属性

返回一个对象，该对象代表了指定组合键的保存位置。本属性可以返回 Document、Template 或 Application 对象。只读。

注意   内置键盘指定方案（例如，将 Ctrl+I 指定给“Italic”（倾斜）命令）将以上下文形式返回 Application 对象。添加的任何组合键将返回 Document 或者 Template 对象，这取决于添加 KeyBinding 对象时有效的自定义上下文。

示例

本示例显示保存宏“Macro1”的文档或者模板的名称。

Sub TestContext1()
    Dim kbMacro1 As KeysBoundTo
    
    Set kbMacro1 = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
        Command:="Macro1")
    MsgBox kbMacro1.Context.Name
End Sub

本示例将 F2 添加给“Italic”（倾斜）命令，然后使用“For Each...Next”循环显示分派给“Italic”命令的键及上下文。

Dim kbLoop As KeyBinding

CustomizationContext = NormalTemplate
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _
    Command:="Italic", KeyCode:=wdKeyF2
For Each kbLoop In _
        KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
        Command:="Italic")
    MsgBox kbLoop.KeyString & vbCr & kbLoop.Context.Name
Next kbLoop