Word VBA教程:Context属性

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

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

VBA示例

本示例显示保存宏“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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号