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

Public App1 As New EventsOfApp


Public App1 As New EventsOfApp Public Sub OnEvents() 'Определение объекта Word.Application with Events 'Связывание Set App1.AppEv = Word.Application 'Теперь начинают работать обработчики событий у Word.Application End Sub Public Sub DocQuit() With ActiveDocument If ExistVar("CounterDoc") Then MsgBox "Число открытий документа " & .Name & vbCrLf & _ .Variables("CounterDoc"), VBE xclamation, "Число открытий документа!" Else MsgBox "У документа " & .Name _ & " нет счетчика числа открытий", VBE xclamation, "Число открытий документа!" End If End With End Sub
Листинг 1.69.
Закрыть окно
Содержание раздела