Word VBA教程:KeysBoundTo属性

返回一个KeysBoundTo对象,该对象代表指定项的所有组合键。

expression.KeysBoundTo(KeyCategory, Command, CommandParameter)

expression   可选。该表达式返回“应用于”列表中的一个对象。

KeyCategory  WdKeyCategory,必需。组合键的类别。

WdKeyCategory 可以是下列 WdKeyCategory 常量之一:
wdKeyCategoryAutoText
wdKeyCategoryCommand
wdKeyCategoryDisable
wdKeyCategoryFont
wdKeyCategoryMacro
wdKeyCategoryNil
wdKeyCategoryPrefix
wdKeyCategoryStyle
wdKeyCategorySymbol

Command   String 类型,必需。命令名称。

CommandParameter   Variant 类型,可选。Command 所指定的命令的附加文字(如果有的话)。有关详细信息,请参阅KeyBindings对象的Add方法的“说明”部分。

VBA示例

本示例显示活动文档附加的模板中为 FileOpen 命令指定的所有组合键。


Dim kbLoop As KeyBinding
Dim strOutput As String
CustomizationContext = ActiveDocument.AttachedTemplate
For Each kbLoop In _
        KeysBoundTo(KeyCategory:=wdKeyCategoryCommand, _
        Command:="FileOpen")
    strOutput = strOutput & kbLoop.KeyString & vbCr
Next kbLoop
MsgBox strOutput

本示例删除“Normal”模板中“Macro1”的所有键盘指定方案。


Dim aKey As KeyBinding
CustomizationContext = NormalTemplate
For Each aKey In _
        KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _
        Command:="Macro1")
    aKey.Disable
Next aKey

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号