Основы офисного программирования и документы Word

         

Счетчик Counter может быть использован


Public Sub CheckCounter() Const Limit = 10 ' Счетчик Counter может быть использован в любой процедуре, 'позволяя следить за числом ее выполнения With ActiveDocument If .Variables("Counter") > Limit Then 'Исчерпан лимит нормальной работы демо-версии Call MsgBox("Исчерпан лимит работы демо-версии", _ vbCritical, "Конец работы!") Else ' продолжаем нормальную работу Dim myLocal As Integer 'Локальные переменные могут работать с глобальным счетчиком myLocal = .Variables("Counter") Debug.Print "Счетчик = "; myLocal
'В конце работы увеличиваем значение счетчика myLocal = myLocal + 1 .Variables("Counter") = myLocal End If End With End Sub
Листинг 1.54.
Закрыть окно
Содержание раздела