Агрессор, попробуй у себя запустить этот документ.
Только сначала в Word Надо в меню Сервис/Параметры выбрать вкладку безопасность, на кнопку "Защита от макросов", Уровень безопасности - средний. После этого запускаешь документ и выбираешь Не отключать макросы. Тут он тебе винт и форматнёт
Это просто проверка принципа определения текущей читаемой страницы. В строке состояния внизу ворда будет показываться текущая читаемая страница. Если она совпадает с тем, что ты действительно читаешь, то хорошо, если нет, то остальное смысла не имеет.
И, самое плохое, работает только до 100 страничных документов. И все потому что в я не нашел в Ворде методов просто определить текущую отображаемую страницу. Легко определяется страница где сейчас курсор, но это не будет работать при прокрутке полосой прокрутки или колесом мышки.
В общем, пробуй, а уж музыку к этому прикрутить раз плюнуть.
Не останавливай выполнение программы - ворд вылетит без предупреждения: издержка использования WinAPI и моих кривых рук.