Asignar método de teclado abreviado a macro con VBA en Word

Anteriormente vimos la manera de asignar un método abreviado de teclado a una macro. En esta ocasión asignamos esa macro a un método de teclado abreviado mediante código VBA.

Macro a asignar

Sub Pegar()    
   Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub

Código para asignar la macro a Ctrl + Mayús +V

 Sub AsignaAtajoWord()
    With Application
         ' Ámbito de la personalización
        .CustomizationContext = NormalTemplate
         
         ' Asigna la macro Pegar al atajo: Ctrl+Mayús+V
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyControl, _
        wdKeyShift, wdKeyV), _
        KeyCategory:=wdKeyCategoryCommand, _
        Command:="Pegar" 'Nombre de la macro
    End With
End Sub

Referencias:
Propiedad Application.CustomizationContext Word)
Crear método abreviado de teclado