Nota:
El acceso a esta página requiere autorización. Puede intentar iniciar sesión o cambiar directorios.
El acceso a esta página requiere autorización. Puede intentar cambiar los directorios.
Cambia el comando asignado a la combinación de teclas especificada.
Sintaxis
expresión.
Rebind( _KeyCategory_ , _Command_ , _CommandParameter_ )
expresión necesaria. 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
Vea también
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.