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