Горячие клавиши назначенные для макросов Word

[Glad]

Пример процедуры:
***********
Public Sub AssignKeys()
CustomizationContext = ActiveDocument.AttachedTemplate
KeyBindings.ClearAll
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey1), KeyCategory:=wdKeyCategoryMacro, Command:="InsertH1"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyQ, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey1), KeyCategory:=wdKeyCategoryMacro, Command:="VstEMF"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyQ, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey2), KeyCategory:=wdKeyCategoryMacro, Command:="RazbTab"
KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyH, wdKeyAlt), KeyCode2:= _
BuildKeyCode(wdKey2), KeyCategory:=wdKeyCategoryMacro, Command:="InsertH2"
End Sub
***************
Проблема:
Через некоторое время (активно работая с макросами) горячие клавиши перестают работать.
Версии ворда: 97, 2000, 2003
В чем проблема?