Name As String) As Boolean
|
Public Function ExistVar( Name As String) As Boolean 'Определяет наличие переменной Name в коллекции Variables Dim MyVar As Variable ExistVar = False For Each MyVar In ActiveDocument.Variables If MyVar.Name = Name Then ExistVar = True: Exit For End If Next MyVar End Function Public Sub OpenDoc() 'Использование счетчика Counter для подсчета числа открытий документа Dim myLocal As Integer 'локальная переменная получает значение счетчика With ActiveDocument If ExistVar("CounterDoc") Then myLocal = .Variables("CounterDoc") MsgBox "Число открытий документа " & .Name & vbCrLf & _ myLocal, vbExclamation, "Число открытий документа!" 'Увеличиваем и сохраняем счетчик myLocal = myLocal + 1 .Variables("CounterDoc") = myLocal Else MsgBox "У документа " & .Name _ & " нет счетчика числа открытий", vbExclamation, "Число открытий документа!" End If End With End Sub |
| Листинг 4.6. |
| Закрыть окно |
