Método KeyBinding.Rebind (Word)

Artigo
04/07/2023

Altera o comando atribuído à vinculação de teclas especificada.

Sintaxe

expression. Rebind( _KeyCategory_ , _Command_ , _CommandParameter_ )

expressão Obrigatório. Uma variável que representa um objeto 'KeyBinding'.

Parâmetros

Nome	Obrigatório/Opcional	Tipo de dados	Descrição
KeyCategory	Obrigatório	WdKeyCategory	A categoria da chave da vinculação da chave especificada.
Comando	Obrigatório	String	O nome do comando especificado.
CommandParameter	Opcional	Variant	Texto adicional, caso haja algum, necessário para o comando especificado por Command. Para obter informações sobre valores para esse argumento, consulte o método Adicionar .

Exemplo

Este exemplo reatribui a vinculação de teclas CTRL+SHIFT+S ao comando FileSaveAs.

Dim kbTemp As KeyBinding 
 
CustomizationContext = NormalTemplate 
Set kbTemp = _ 
 FindKey(BuildKeyCode(wdKeyControl, wdKeyShift, wdKeyS)) 
kbTemp.Rebind KeyCategory:=wdKeyCategoryCommand, _ 
 Command:="FileSaveAs"

Este exemplo revincula à macro chamada "ReportMacro" todas as teclas atribuídas à macro chamada "Macro1".

Dim kbLoop As KeyBinding 
 
CustomizationContext = ActiveDocument.AttachedTemplate 
For Each kbLoop In _ 
 KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1") 
 kbLoop.Rebind KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="ReportMacro" 
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.