Propriedade Application.KeysBoundTo (Word)Application.KeysBoundTo property (Word)

Retorna um objeto KeysBoundTo que representa todas as combinações de teclas atribuídas ao item especificado.Returns a KeysBoundTo object that represents all the key combinations assigned to the specified item.

SintaxeSyntax

expression.expression. KeysBoundTo( _KeyCategory_ , _Command_ , _CommandParameter_ )

expressão Uma variável que representa um objeto 'aplicativo'.expression A variable that represents an 'Application' object. Opcional.Optional.

ParâmetrosParameters

NomeName Obrigatório/OpcionalRequired/Optional Tipo de dadosData type DescriçãoDescription
KeyCategoryKeyCategory ObrigatórioRequired WdKeyCategoryWdKeyCategory A categoria da combinação de teclas.The category of the key combination.
CommandCommand ObrigatórioRequired StringString O nome do comando.The name of the command.
CommandParameterCommandParameter OpcionalOptional VariantVariant Texto adicional, caso haja algum, necessário para o comando especificado por Command.Additional text, if any, required for the command specified by Command. Para obter mais informações, consulte a seção "Comentários" no método Add do objeto KeyBindings .For more information, see the "Remarks" section in the Add method for the KeyBindings object.

ExemploExample

Este exemplo exibe todas as combinações de teclas atribuídas ao comando FileOpen no modelo anexado ao documento ativo.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

Este exemplo remove todas as atribuições de teclas de Macro1 no modelo Normal.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

Ver tambémSee also

Objeto ApplicationApplication Object