Método KeyBindings.Add (Word)
Devuelve un objeto KeyBinding que representa un nuevo método abreviado para una macro, un comando integrado, una fuente, un Autotexto, un estilo o un símbolo.
Sintaxis
expresión. Add (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)
expresión requerida. Variable que representa una colección "KeyBindings".
Parameters
| Nombre | Obligatorio/opcional | Tipo de datos | Descripción |
|---|---|---|---|
| KeyCategory | Obligatorio | WdKeyCategory | Categoría de la asignación de teclas. |
| Command | Obligatorio | String | Comando ejecutado por la combinación de teclas especificada. |
| KeyCode | Obligatorio | Long | Tecla especificada utilizando una de las constantes WdKey. |
| KeyCode2 | Opcional | Variant | Segunda tecla especificada utilizando una de las constantes WdKey. |
| CommandParameter | Opcional | Variant | Texto adicional, si lo hay, requerido para el comando especificado por Command. Para obtener más detalles, vea la sección Comentarios que aparece a continuación. |
Valor devuelto
Keybinding
Comentarios
Use el método BuildKeyCode para crear el argumento KeyCode o KeyCode2.
En la siguiente tabla, la columna izquierda contiene los comandos que requieren un valor de comando y la columna derecha describe qué debe hacer para especificar CommandParameter para cada uno de estos comandos. La acción equivalente del cuadro de diálogo Personalizar teclado (menú Herramientas) con el fin de especificar CommandParameter es seleccionar un elemento del cuadro de lista que aparece al seleccionar uno de los siguientes comandos del cuadro Comandos.
| Si el valor de Command es | CommandParameter debe ser |
|---|---|
| Borders, Color o Shading | Un número ,especificado como texto, que corresponde a la posición de la configuración seleccionada en el cuadro de lista que contiene valores, donde 0 (cero) es el primer elemento, 1 es el segundo elemento, etc. |
| Columns | Número entre 1 y 45 ,especificado como texto, que corresponde al número de columnas que desea aplicar. |
| Condensed | Una medida de texto comprendida entre 0,1 y 12,75 puntos, especificada en incrementos de 0,05 puntos (72 puntos = 2,54 centímetros) |
| Expanded | Una medida de texto comprendida entre 0,1 y 12,75 puntos, especificada en incrementos de 0,05 puntos (72 puntos = 2,54 centímetros) |
| FileOpenFile | La ruta de acceso y nombre del archivo que va a abrirse. Si no se especifica la ruta, se toma la carpeta actual. |
| Font Size | Una medida de texto positiva, especificada en incrementos de 0,5 puntos (72 puntos = 2,54 centímetros) |
| Lowered, Raised | Una medida de texto comprendida entre 1 y 64 puntos, especificada en incrementos de 0,5 puntos (72 puntos = 2,54 centímetros) |
| Symbol | Una cadena creada concatenando una instrucción Chr() y el nombre de una fuente symbol (por ejemplo, Chr(167) & "Symbol") |
Ejemplo:
En este ejemplo se asigna la combinación de teclas CTRL+ALT+W al comando FileClose. La personalización del teclado se guarda en la plantilla Normal.
CustomizationContext = NormalTemplate
KeyBindings.Add _
KeyCategory:=wdKeyCategoryCommand, _
Command:="FileClose", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)
En este ejemplo se agrega la combinación de teclas ALT+F4 a la fuente Arial y, a continuación, se muestra el número de elementos de la colección KeyBindings. A continuación, en el ejemplo se borra la combinación de teclas ALT + F4 (devuelta a su valor predeterminado) y vuelve a mostrar el número de elementos de la colección KeyBindings.
CustomizationContext = ActiveDocument.AttachedTemplate
Set myKey = KeyBindings.Add(KeyCategory:=wdKeyCategoryFont, _
Command:="Arial", KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4))
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
myKey.Clear
MsgBox KeyBindings.Count & " keys in KeyBindings collection"
En este ejemplo se agrega la combinación de teclas CTRL+ALT+S al comando Font de 8 puntos especificado por el tamaño de fuente.
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCategory:=wdKeyCategoryCommand, _
Command:="FontSize", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _
CommandParameter:="8"
En este ejemplo se asigna la combinación de teclas CTRL+ALT+H al estilo Heading 1 del documento activo.
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCategory:=wdKeyCategoryStyle, _
Command:="Heading 1", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyH)
En este ejemplo se agrega la combinación de teclas CTRL+ALT+O al elemento de Autotexto "Hello".
CustomizationContext = ActiveDocument
KeyBindings.Add KeyCategory:=wdKeyCategoryAutoText, _
Command:="Hello", _
KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyO)
Consulte también
Objeto de la colección KeyBindings
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.