Clase KeyBindings (Word VBA)

Colección de objetos KeyBinding que representa las asignaciones de teclas personalizadas en el contexto actual. Para usar una variable de clase KeyBindings, primero debe ser instanciado, por ejemplo


Dim kbs as KeyBindings
Set kbs = KeyBindings

For Each

A continuación, se muestra un ejemplo de cómo procesar los elementos KeyBindings en una colección.


Dim kbg As KeyBinding
For Each kbg In KeyBindings
	
Next kbg

Add

Devuelve un objeto KeyBinding que representa una nueva tecla de método abreviado para una macro, un comando integrado, una fuente, un elemento de Autotexto, un estilo o un símbolo.

El método BuildKeyCode se puede usar para crear el argumento KeyCode o el argumento 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.

Add (KeyCategory, Command, KeyCode, KeyCode2, CommandParameter)


CustomizationContext = NormalTemplate 
KeyBindings.Add _ 
    KeyCategory:=wdKeyCategoryCommand, _ 
    Command:="FileClose", _ 
    KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyW)

Arguments

Estos son los argumentos con nombre :

KeyCategory (WdKeyCategory) - Categoría de la asignación de teclas.

Aquí puede ver valores posibles para WdKeyCategory

Command (String) - Comando ejecutado por la combinación de teclas especificada.

KeyCode (Long) - Tecla especificada utilizando una de las constantes WdKey.

Optional arguments

Los siguientes argumentos son opcionales

KeyCode2 (WdKey) - Segunda tecla especificada utilizando una de las constantes WdKey.

Aquí puede ver valores posibles para WdKey

CommandParameter (String) - Texto adicional, si lo hay, requerido para el comando especificado por Command.

ClearAll

Borra todas las asignaciones de teclas personalizadas y restaura las asignaciones originales de las teclas de método abreviado de Microsoft Word.


CustomizationContext = NormalTemplateKeyBindings.ClearAll

Context

Devuelve un objeto Object que representa la ubicación de almacenamiento de la combinación de teclas especificada.

Esta propiedad puede devolver un objeto Document, Templateo Application .


Dim appContext As Application
Set appContext = KeyBindings.Context

Count

Devuelve un Long que representa el número de combinaciones de teclas de la colección.


Dim lngCount As Long
lngCount = KeyBindings.Count

Item

Devuelve un objeto KeyBinding individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.


Dim kbg As KeyBinding
Set kbg = KeyBindings(Index:=1)

Key

Devuelve un objeto KeyBinding que representa la combinación de teclas personalizada especificada.

Si la combinación de teclas no existe, este método devuelve Nothing. El método BuildKeyCode se puede usar para crear el argumento KeyCode o el argumento KeyCode2.

Key (KeyCode, KeyCode2)


CustomizationContext = NormalTemplate 
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4), _ 
 KeyCategory:=wdKeyCategoryFont, Command:="Arial" 
MsgBox KeyBindings.Count & " keys in KeyBindings collection" 
KeyBindings.Key(KeyCode:=BuildKeyCode(wdKeyAlt, wdKeyF4)).Clear 
MsgBox KeyBindings.Count & " keys in KeyBindings collection"