Clase KeysBoundTo (Word VBA)

Colección de objetos KeyBinding asignados a un comando, un estilo, una macro u otro elemento del contexto actual. Para usar una variable de clase KeysBoundTo, primero debe ser instanciado, por ejemplo

Dim kbt as KeysBoundTo
Set kbt = Dim strCommand As String: strCommand = 
KeysBoundTo(KeyCategory:=wdKeyCategoryAutoText, Command:=strCommand)

Command

Devuelve una cadena que representa el comando asignado a la combinación de teclas especificada.

Dim kbLoop As KeyBinding 
 
For Each kbLoop In KeyBindings 
 If kbLoop.KeyCategory = wdKeyCategoryFont Then 
 Count = Count + 1 
 MsgBox kbLoop.Command & vbCr & kbLoop.KeyString 
 End If 
Next kbLoop 
 
If Count = 0 Then MsgBox "Keys haven't been assigned to fonts"

CommandParameter

Devuelve el parámetro de comando asignado a la tecla de método abreviado especificada.

Para obtener información acerca de los comandos que incluyen parámetros, vea el método Add.

Dim kbNew As KeyBinding 
 
Set kbNew = KeyBindings.Add(KeyCategory:=wdKeyCategoryCommand, _ 
 Command:="FontSize", _ 
 KeyCode:=BuildKeyCode(wdKeyControl, wdKeyAlt, wdKeyS), _ 
 CommandParameter:="8") 
MsgBox kbNew.Command & Chr$(32) & kbNew.CommandParameter _ 
 & vbCr & kbNew.KeyString

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 .

Sub TestContext1() 
 Dim kbMacro1 As KeysBoundTo 
 
 Set kbMacro1 = KeysBoundTo(KeyCategory:=wdKeyCategoryMacro, _ 
 Command:="Macro1") 
 MsgBox kbMacro1.Context.Name 
End Sub

Count

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

Dim lngCount As Long
lngCount = KeysBoundTo.Count

Item

Devuelve un objeto KeyBinding individual de una colección.

Item (Index)

Index: El objeto individual que se va a devolver.

Dim kbgKeysBoundTo As KeyBinding
Set kbgKeysBoundTo = KeysBoundTo(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)

Dim lngKeyCode As Long: lngKeyCode =  
Dim kbgKey As KeyBinding
Set kbgKey = KeysBoundTo.Key(KeyCode:=lngKeyCode)

Arguments

Un argumento con nombre

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

KeyCategory

Devuelve el tipo de elemento asignado a la combinación de teclas especificada. Aquí puede ver valores posibles para WdKeyCategory.

Dim wkcKeyCategory As WdKeyCategory
wkcKeyCategory = KeysBoundTo.KeyCategory