Expand Minimize

Application.KeysBoundTo Property (Word)

Returns a KeysBoundTo object that represents all the key combinations assigned to the specified item.

expression .KeysBoundTo(KeyCategory, Command, CommandParameter)

expression A variable that represents an Application object. Optional.

Parameters

Name

Required/Optional

Data Type

Description

KeyCategory

Required

WdKeyCategory

The category of the key combination.

Command

Required

String

The name of the command.

CommandParameter

Optional

Variant

Additional text, if any, required for the command specified by Command. For more information, see the "Remarks" section in the Add method for the KeyBindings object.

This example displays all the key combinations assigned to the FileOpen command in the template attached to the active document.

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

This example removes all key assignments from Macro1 in the Normal template.

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