Application.KeyBindings (Word)

Retorna uma coleção keybindings que representa atribuições de teclas personalizadas, que incluem um código de tecla, uma categoria de chave e um comando.

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