Word VBA拦截Delete键后丢失Undo功能的解决方案咨询

我之前做Word VBA开发时也碰到过类似的坑，你的核心问题在于用SendKeys模拟Delete操作会绕过Word的原生编辑记录机制，直接跳过了撤销栈的写入逻辑，导致Undo功能失效。下面给你几个更靠谱的解决方案：

方案一：用原生Selection.Delete替代SendKeys（首推） #

完全不用切换KeyBinding或者调用SendKeys，直接在你的cRoutine宏里判断选中内容是否包含需要保护的SET字段，再决定是否执行原生删除——这样所有操作都会被Word正常记录到撤销栈里，Undo功能自然就恢复了。

代码示例：

Sub cRoutine()
    Dim protectFieldFound As Boolean
    protectFieldFound = False
    
    ' 遍历选中范围内的所有字段，检查是否是你要保护的SET字段
    Dim targetField As Field
    For Each targetField In Selection.Fields
        If targetField.Type = wdFieldSet Then
            ' 这里可以加额外判断，比如字段内容是否包含你的特定标识
            If InStr(targetField.Code.Text, "你的文档隐藏信息标识") > 0 Then
                protectFieldFound = True
                Exit For
            End If
        End If
    Next targetField
    
    If protectFieldFound Then
        ' 弹出确认对话框，让用户确认是否删除
        If MsgBox("你正在尝试删除文档的隐藏信息字段，确定要继续吗？", vbYesNo + vbExclamation, "警告") = vbYes Then
            ' 用户确认后执行原生删除，会被记录到撤销栈
            Selection.Delete
        End If
    Else
        ' 没有选中保护字段，直接执行原生删除
        Selection.Delete
    End If
End Sub

这个方案逻辑简单，完全贴合Word的原生机制，既保留了拦截保护的需求，又不会破坏撤销功能，也省去了绑定切换的繁琐操作。

方案二：调用Word内置删除命令替代SendKeys #

如果出于某些原因你需要保留绑定切换的逻辑，可以把SendKeys "{DELETE}"替换成调用Word的内置删除命令，这个命令属于原生操作，会被正常记录到撤销栈：

Call ToggleCatch(False) ' 移除绑定
Application.Run "EditDelete" ' 调用原生删除命令，替代SendKeys
DoEvents
Call ToggleCatch(True) ' 重新绑定

相比SendKeys，Application.Run "EditDelete"是直接触发Word内置的编辑动作，不会绕过撤销记录逻辑。

方案三：改用SelectionChange事件监控（覆盖更多场景） #

如果你的场景还需要处理右键删除、快捷键组合删除等情况，全局KeyBinding的覆盖范围有限，可以改用WindowSelectionChange事件实时监控选中内容：

1. 新建一个类模块，命名为WordEventClass，添加以下代码：

Public WithEvents appWord As Word.Application

Private Sub appWord_WindowSelectionChange(ByVal Sel As Selection)
    Dim protectFieldFound As Boolean
    protectFieldFound = False
    
    ' 检查当前选中内容是否包含保护字段，逻辑和方案一一致
    Dim targetField As Field
    For Each targetField In Sel.Fields
        If targetField.Type = wdFieldSet And InStr(targetField.Code.Text, "你的标识") > 0 Then
            protectFieldFound = True
            Exit For
        End If
    Next targetField
    
    ' 根据是否选中保护字段，动态启用/禁用Delete命令
    CommandBars.FindControl(ID:=292).Enabled = Not protectFieldFound ' ID=292对应Delete命令
End Sub

2. 在普通模块里初始化事件：

Dim wordEvents As WordEventClass

Sub InitializeEvents()
    Set wordEvents = New WordEventClass
    Set wordEvents.appWord = Application
End Sub

这个方案会在用户选中保护字段时直接禁用Delete命令，从根源上防止误删，同时完全不影响正常删除的撤销功能。

内容的提问来源于stack exchange，提问作者LeoL