Как узнать, какая клавиша была нажата в Word

WindowSelectionChange

If Asc(Selection.Characters(1).Previous) = 32 Then
End If

Option Base 1
Option Explicit
 
Type POINTAPI32
    x As Long
    y As Long
End Type
 
Type MSG32
    hWnd As Long
    message As Long
    wParam As Long
    lParam As Long
    time As Long
    pt As POINTAPI32
End Type
 
Declare Function FindWindow32 Lib "USER32" Alias "FindWindowA" (ByVal lpClassName As String, _
    ByVal lpWindowName As String) As Long
 
Declare Function PeekMessage32 Lib "USER32" Alias "PeekMessageA" (lpMsg As MSG32, _
    ByVal hWnd As Long, ByVal wMsgFilterMin As Long, ByVal wMsgFilterMax As Long, _
    ByVal wRemoveMsg As Long) As Long
 
Declare Function TranslateMessage32 Lib "USER32" Alias "TranslateMessage" (lpMsg As MSG32) As Long
 
 
Sub procTestKey()
Dim iCount As Integer
Dim sKey As String
Application.DisplayStatusBar = True
iCount = 0
Do
    iCount = iCount + 1
    Application.StatusBar = "Стоп: " & iCount & "  Нажмите любую клавишу для остановки."
        sKey = funCheckKey32
  Loop Until sKey <> ""
MsgBox "Была нажата: " & sKey
Application.StatusBar = False
End Sub
Function funCheckKey32() As String
Dim msgMessage As MSG32
Dim iHwnd As Long
Dim i As Long
'константы Windows API
Const WM_CHAR As Long = &H102
Const WM_KEYDOWN As Long = &H100
Const PM_REMOVE As Long = &H1
Const PM_NOYIELD As Long = &H2
funCheckKey32 = "" 'по умолчанию никакая клавиша не нажата
iHwnd = FindWindow32("WORDMAIN", Application.Caption) 'получаем хэндл  окна
i = PeekMessage32(msgMessage, iHwnd, WM_KEYDOWN, WM_KEYDOWN, PM_REMOVE + PM_NOYIELD)
If i <> 0 Then
    i = TranslateMessage32(msgMessage)
    i = PeekMessage32(msgMessage, iHwnd, WM_CHAR, WM_CHAR, PM_REMOVE + PM_NOYIELD)
    funCheckKey32 = Chr(msgMessage.wParam) ' возвращаемсимвол нажатой клавиши
End If
End Function