通过VBA为宏分配快捷键：手动删除后无法重分配的问题求助

问题背景 #

需要批量处理50多个Word文件，为每个文件添加相同的宏模块，并通过VBA自动给宏BeregnKoter.main分配Shift+F1快捷键。编写的分配代码仅能成功运行一次，手动删除快捷键后再次运行代码无任何效果；单独运行清除快捷键的代码后，再执行分配代码可正常生效，但无法解决手动删除后直接重分配的问题。

用到的分配代码：

Sub AssignShortcut()
    ' Assign Shift+F1 as a shortcut for a macro
    With Application
        .CustomizationContext = NormalTemplate
        .KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyShift, wdKeyF1), _
            KeyCategory:=wdKeyCategoryMacro, Command:="BeregnKoter.main"
    End With
End Sub

清除快捷键代码：

Sub ClearExistingShortcuts()
    ' Set the customization context to the Normal template
    Application.CustomizationContext = NormalTemplate

    ' Clear all existing key bindings in the Normal template
    Application.KeyBindings.ClearAll
End Sub

原因分析 #

1. 手动删除的绑定范围不匹配：你的代码将快捷键绑定到了全局的NormalTemplate模板，但手动删除快捷键时，默认可能只删除了当前文档级的绑定，Normal模板里的绑定仍然存在。此时再次运行分配代码，因为目标快捷键在全局模板中已被绑定，KeyBindings.Add方法会静默失败（不会抛出错误提示）。
2. Word状态缓存问题：手动删除快捷键后，Word可能没有立即更新Normal模板的绑定状态缓存，导致后续的添加操作无法识别绑定已被移除。

解决方法 #

1. 分配前先检查并移除目标快捷键的现有绑定 #

修改分配代码，先遍历所有快捷键绑定，找到目标快捷键的绑定并删除，再执行添加操作，确保每次运行都能重新分配：

Sub AssignShortcut()
    Dim kb As KeyBinding
    Dim targetKeyCode As Long
    
    targetKeyCode = BuildKeyCode(wdKeyShift, wdKeyF1)
    
    ' 绑定到全局Normal模板
    Application.CustomizationContext = NormalTemplate
    
    ' 先清理目标快捷键的所有现有绑定
    For Each kb In Application.KeyBindings
        If kb.KeyCode = targetKeyCode And kb.KeyCategory = wdKeyCategoryMacro Then
            kb.Delete
        End If
    Next kb
    
    ' 重新分配快捷键
    Application.KeyBindings.Add _
        KeyCode:=targetKeyCode, _
        KeyCategory:=wdKeyCategoryMacro, _
        Command:="BeregnKoter.main"
End Sub

2. 手动删除时确保清除全局模板的绑定 #

如果需要手动删除快捷键，打开Word的选项→自定义功能区→键盘快捷键：自定义窗口，在保存更改于下拉菜单中选择Normal.dotm，再找到对应的快捷键删除，这样才能真正清除全局模板里的绑定，之后再运行分配代码就会生效。

3. 可选：将快捷键绑定到文档级 #

如果希望快捷键仅对当前处理的文件生效（而非全局所有Word文档），可以把CustomizationContext设置为当前文档：

Sub AssignShortcutToDocument()
    Dim kb As KeyBinding
    Dim targetKeyCode As Long
    
    targetKeyCode = BuildKeyCode(wdKeyShift, wdKeyF1)
    
    ' 绑定到当前活动文档
    Application.CustomizationContext = ActiveDocument
    
    ' 清理当前文档中目标快捷键的绑定
    For Each kb In Application.KeyBindings
        If kb.KeyCode = targetKeyCode And kb.KeyCategory = wdKeyCategoryMacro Then
            kb.Delete
        End If
    Next kb
    
    ' 分配快捷键到当前文档
    Application.KeyBindings.Add _
        KeyCode:=targetKeyCode, _
        KeyCategory:=wdKeyCategoryMacro, _
        Command:="BeregnKoter.main"
End Sub

内容的提问来源于stack exchange，提问作者Christian Emil Johansen