Как поймать событие изменения текста документа Word?

[adev]

Задача: необходимо контролировать количество символов в тексте документа, а в случае превышения некоторого максимального значения выделять цветом "лишние" символы. Собственно сама проверка и выделение цветом проблем не вызывают. Главный вопрос, каким образом оперативно отслеживать изменения в документе и вызывать проверку.

Вариант 1. Запускать проверку периодически через некоторые интервалы времени. Недостатки: бесконечный цикл с проверкой условия даже при отсутствии изменений в документе.
Вариант 2. Отслеживать события нажатия клавиш (набор и удаление символов) и левой кнопки мыши (вставка текста посредством контекстного меню или кнопки на панели инструментов).

Код:

Sub HandleEvents()
  Dim m As MSG
  
  bCancel = False
  Do While Not bCancel
    WaitMessage
    If PeekMessage(m, GetActiveWindow, 0, 0, PM_NOREMOVE) Then
      Select Case m.Message
      Case WM_KEYUP, WM_LBUTTONUP
        UpdateInfo
      End Select
    End If
    DoEvents
  Loop
End Sub

Sub AutoOpen()
  HandleEvents
End Sub

Недостатки варианта 2: 1) некоторые изменения становятся видны только после дополнительного клика мышью или нажатия клавиши; 2) при открытии документа в Word 2003 SP3 иконки стандартных панелей инструментов не видны до первого клика (см. приложенный скриншот).

Может, есть решение лучше? Подходящих событий объектной модели Word я не нашел.
Событие WindowSelectionChange не подходит, так как не происходит:
1) при наборе текста с клавиатуры, хотя курсор перемещается вправо;
2) при удалении символов клавишей BackSpace.

[HandKot]

ИМХО, лучше отслеживвать не в процессе набора, а впроцессе сохранения или печати
Логика упрощается

[baldr]

HandKot, логика упрощается, но если пользователь превысит лимит на 2 тысячи символов, то он, по-твоему, узнает об этом только через час, при попытке сохранить??
adev, должно быть событие что-то типа onKeyUp или похожее - сейчас не помню - на каждое нажатие клавиши в документе.

[adev]

baldr, к сожалению, события KeyPress, KeyUp, KeyDown есть только в MS Forms. С использованием форм VBA появится другая проблема - невозможность сохранения форматирования текста.

[Naghual]

Интересная задачка.
Я рекомендую Вам использовать событие приложения "WindowSelectionChange" в связке с таймером.

[adev]

Да, в итоге пришел к решению с таймером

Код:

Sub AutoOpen()
'установка таймера
  TimerId = SetTimer(&H0, &H0, TimerInterval, AddressOf TimerProc)
  'сохраняем идентификатор таймера в пользовательском свойстве документа
  UpdateDocProperty TIMERPROP, msoPropertyTypeNumber, TimerId
End Sub

Sub AutoClose()
  StopTimer
End Sub

Sub StopTimer()
'остановка таймера
  KillTimer &H0, TimerId
End Sub

Public Sub TimerProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal idEvent As Long, _
  ByVal dwTimer As Long)
'обработчик таймера
  Dim DocTimer As Long

  'предотвращение нескольких одновременных обновлений
  If UpdateInProcess Then Exit Sub
  
  'работаем только со "своим" документом!
  DocTimer = GetDocProperty(TIMERPROP, 0)
  If DocTimer = TimerId Then
    CheckTables
  End If
End Sub