Método KeyBinding.Disable (Word)

Remove a combinação de teclas especificada se no momento ela estiver atribuída a um comando. Após o uso deste método, a combinação de teclas perderá o efeito.

Sintaxe

expression. Disable

expression é obrigatório. Uma variável que representa um objeto "KeyBinding".

Comentários

Usar esse método é equivalente a clicar o botão Remover na caixa de diálogo Personalizar teclado. Use o método Clear com um objeto KeyBinding para redefinir um comando interno com sua atribuição de teclas padrão. Você não precisa remover ou rebind um objeto KeyBinding antes de adicioná-lo em outros lugares.

Exemplo

Este exemplo remove a atribuição de teclas CTRL+SHIFT+B. Essa combinação de teclas é atribuída, por padrão, ao comando Negrito.

CustomizationContext = NormalTemplate 
FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyB)).Disable

Este exemplo atribui a combinação de teclas CTRL + SHIFT + O ao comando Organizer. O exemplo, em seguida, usa o método Disable para remover a combinação de teclas CTRL + SHIFT + O e exibe uma mensagem.

CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyO, _ 
 wdKeyControl, wdKeyShift), _ 
 KeyCategory:=wdKeyCategoryCommand, Command:="Organizer" 
With FindKey(BuildKeyCode(wdKeyO, wdKeyControl, wdKeyShift)) 
 MsgBox .Command & " is assigned to CTRL+Shift+O" 
 .Disable 
 If .Command = "" Then MsgBox _ 
 "Nothing is assigned to CTRL+Shift+O" 
End With

Este exemplo remove todas as atribuições de teclas para a macro global chamada "Macro1".

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

Confira também

Objeto KeyBinding

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.