如何用VBA通过PostMessage向写字板发送Ctrl+字母组合键？

核心原因 #

写字板的RichEdit编辑控件对键盘组合键的处理依赖真实的系统键盘状态上下文，而PostMessage/SendMessage仅能向窗口句柄发送孤立消息，无法同步更新系统层面的键盘状态，也无法触发控件内部识别组合键所需的完整键盘消息链逻辑：

• RichEdit会优先读取系统的键盘状态（而非消息参数里的按键标记）判断组合键是否按下；
• 跨线程的键盘状态修改（如SetKeyboardState）仅对当前线程有效，写字板属于独立线程，无法识别此类修改。

对您尝试方法的具体分析 #

您能成功发送单字符或单键消息，是因为这类操作不需要组合键状态检查：

' 单字符发送成功
PostMessage hwnd, WM_CHAR, Asc("A"), 0

' 单键发送成功
PostMessage hwnd, WM_KEYDOWN, VBA.vbKeyU,0
PostMessage hwnd, WM_KEYUP, VBA.vbKeyU,0

以下组合键尝试失败的原因：

1. 直接发送Ctrl+字符消息序列：

PostMessage(hwnd, WM_KEYDOWN, vbKeyControl, 0)
PostMessage hwnd, WM_KEYDOWN, VBA.vbKeyU,0
PostMessage hwnd, WM_KEYUP, VBA.vbKeyU,0
PostMessage(hwnd, WM_KEYUP, vbKeyControl, 0)

RichEdit控件不会将这组消息识别为真实的Ctrl+U组合键——系统键盘状态中Ctrl并未实际按下，控件会忽略消息中的按键状态标记。

2. WM_SYSCOMMAND方式：

PostMessage hwnd, &H112, &HF100, &H46
PostMessage hwnd, WM_KEYDOWN, Asc("H"),0

SC_KEYMENU（&HF100）是用于触发系统菜单的快捷键，不适用于编辑控件的文本格式化组合键，因此无法生效。

3. SetKeyboardState结合PostMessage：

Dim tCurKB(255) As Byte, tInitKB(255)  As Byte
Dim lThreadID As Long
GetKeyboardState tInitKB(0)
tCurKB(VK_CONTROL) = &H80
SetKeyboardState tCurKB(0)
PostMessage hwnd,WM_CHAR, , 1, vbKeyControl

SetKeyboardState是线程局部函数，仅能修改当前线程的键盘状态，写字板运行在独立线程中，无法感知到您线程中的键盘状态修改，因此无响应。

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