Запускать по времни

[Svetik]

Здравствуйте!
Помогите пожалуйста! Можно ли написать макрос, который бы я могла сама запустить или остановить, а он постоянно, раз в 10 минут сам выводил сообщение о том, сколько я уже напечатала слов и страниц текста. У меня Word 2010.

[Администратор]

Вот две процедуры. Поместите их в один модуль для удобства. И сделайте две кнопки. Для одной кнопки назначьте процедуру "pStatistic", для второй - pStop.
Посмотрите комментарии, которые я написал в коде.

Sub pStatistic()
    '1. Отображение сообщения со статистикой.
    Application.Dialogs(wdDialogToolsWordCount).Show
    '2. Установка таймера.
        ' В скобках функции "TimeValue" укажите нужное время. Сейчас установлено 5 секунд.
        ' В параметре "Name" укажите имя модуля и имя процедуры, которую надо запускать.
    Application.OnTime When:=Now + TimeValue("00:00:05"), Name:="Module1.pStatistic"
End Sub

Sub pStop()
    ' Отключение таймера.
    Application.OnTime When:=Now, Name:=""
End Sub

[Svetik]

Да, все получается замечательно! Спасибо Вам!