Office 2013中Document_KeyUp事件失效，按键触发文本变色异常

问题原因 #

Word文档级的Document_KeyPress事件无法捕获编辑区域的常规按键输入——Word的编辑窗口会优先处理这些按键，不会触发文档模块中的按键事件，所以你添加的MsgBox也不会弹出。

解决方法一（应用程序级事件捕获） #

1. 插入类模块
   打开VBA编辑器，右键点击项目 → 插入 → 类模块，将类模块命名为clsWordEvents。

2. 类模块代码
   在clsWordEvents中粘贴以下代码：

   Public WithEvents app As Word.Application
   Private Is_Str As Boolean
   
   Private Sub app_KeyPress(ByVal KeyCode As Integer, ByVal Shift As Integer)
       If KeyCode = 34 Then
           ' 插入双引号，避免覆盖默认输入
           app.Selection.TypeText Chr(34)
           
           ' 切换文本颜色
           If Is_Str Then
               app.Selection.Font.Color = RGB(0, 0, 0)
           Else
               app.Selection.Font.Color = RGB(0, 255, 0)
           End If
           Is_Str = Not Is_Str
           
           ' 阻止默认按键处理，避免重复输入双引号
           KeyCode = 0
       End If
   End Sub
   

3. 初始化事件绑定
   在ThisDocument模块中粘贴以下代码：

   Dim wordEvents As clsWordEvents
   
   Private Sub Document_Open()
       Set wordEvents = New clsWordEvents
       Set wordEvents.app = Application
   End Sub
   
   Private Sub Document_Close()
       Set wordEvents.app = Nothing
       Set wordEvents = Nothing
   End Sub
   

解决方法二（自定义快捷键绑定宏） #

如果不想使用类模块，可直接通过绑定快捷键实现：

1. 编写宏
   在ThisDocument或标准模块中添加以下宏代码：

   Static Is_Str As Boolean
   
   Sub ToggleTextColor()
       ' 插入双引号
       Selection.TypeText Chr(34)
       
       ' 切换文本颜色
       If Is_Str Then
           Selection.Font.Color = RGB(0, 0, 0)
       Else
           Selection.Font.Color = RGB(0, 255, 0)
       End If
       Is_Str = Not Is_Str
   End Sub
   

2. 绑定快捷键
   • 打开Word选项 → 自定义功能区 → 点击底部的「自定义...」快捷键按钮
   • 在「类别」中选择「宏」，选中ToggleTextColor，在「请按新快捷键」处按下双引号键，点击「指定」后确认关闭窗口。

注意事项 #

• 两种方法均支持Office 2013版本，且需确保文档已启用宏、安全选项允许运行所有宏（你已满足该条件）

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