Application.KeyBindings (Word)

Returns a KeyBindings collection that represents customized key assignments, which include a key code, a key category, and a command.

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