Application.KeyBindings (Word)

Devuelve una colección KeyBindings que representa las asignaciones de teclas personalizadas, que incluyen un código de tecla, una categoría de teclas y un comando.

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