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.