不知为什么
WM_KEYDOWN 在文本框和列表框上没有效果 （word上测试过是可以的）
WM_SETTEXT 在word上不可以（但是正在文本框和列表框上有效果）
Dim s As String
Dim FT_hWnd As Long
Dim ID_Control_hWnd As Long
s = "QQQ"
FT_hWnd = GetDlgItem(5573150, 1)
MsgBox FT_hWnd
SendMessage FT_hWnd, WM_SETTEXT, 0, s '能够成功给文本框赋值，但是word上没有生效
SendMessage FT_hWnd, WM_SETFOCUS, 0, 0
SendMessage FT_hWnd, WM_KEYDOWN, VK_X, 0& '能够word上产生按X /按回车的效果，但是不能在文本框上产生这样的效果
SendMessage FT_hWnd, WM_KEYDOWN, VK_RETURN, 0&
