Método KeyBinding.Rebind (Word)

Artículo
04/07/2023

Cambia el comando asignado a la combinación de teclas especificada.

Sintaxis

expresión. Rebind( _KeyCategory_ , _Command_ , _CommandParameter_ )

expresión requerida. Variable que representa un objeto 'KeyBinding'.

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
KeyCategory	Obligatorio	WdKeyCategory	Categoría de teclas de la combinación de teclas especificada.
Command	Obligatorio	String	Nombre del comando especificado.
CommandParameter	Opcional	Variant	Texto adicional, si lo hay, requerido para el comando especificado por Command. Para obtener información sobre los valores de este argumento, vea el método Add .

Ejemplo:

En este ejemplo se asigna de nuevo la combinación de teclas CTRL+MAYÚS+S al comando FileSaveAs.

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

En este ejemplo se agregan de nuevo a la macro "ReportMacro" todas las teclas asignadas a la macro "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

Consulte también

Objeto KeyBinding

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.