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'.

Parámetros

Nombre Obligatorio/opcional Tipo de datos Descripción
KeyCategory Obligatorio WdKeyCategory Categoría de la asignación de teclas.
Command Necesario String Comando ejecutado por la combinación de teclas especificada.
KeyCode Necesario 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 textcorresponding— 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, y así sucesivamente
Columns Un número entre 1 y 45— especificado como textcorresponding— 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)

Vea 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.