Автор Тема: Запускать по времни  (Прочитано 752 раз)

Svetik

  • Гость
Запускать по времни
« : 14 Декабрь 2015, 22:20 »
Здравствуйте!
Помогите пожалуйста! Можно ли написать макрос, который бы я могла сама запустить или остановить, а он постоянно, раз в 10 минут сам выводил сообщение о том, сколько я уже напечатала слов и страниц текста. У меня Word 2010.

Оффлайн Администратор

  • Administrator
  • Сообщений: 1939
Re: Запускать по времни
« Ответ #1 : 15 Декабрь 2015, 16:07 »
Вот две процедуры. Поместите их в один модуль для удобства. И сделайте две кнопки. Для одной кнопки назначьте процедуру "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

  • Гость
Re: Запускать по времни
« Ответ #2 : 15 Декабрь 2015, 18:51 »
Да, все получается замечательно! Спасибо Вам!