Управление документами Word и Excel на VBA - eDrive

30
End If
End Sub
Начальная установка интерфейса
При открытии документа Word всегда в первую очередь
автоматически обрабатывается событие Open объекта Document, а закрытию
предшествует событие Close. Каждый новый документ Word обрабатывает
событие New.
При открытии рабочей книги Excel сначала обрабатывается событие
Open объекта Workbook, а закрытию предшествует событие BeforeClose.
Каждый рабочий лист Excel обрабатывает события Activate, SheetChange и
Deactivate.
Свойство OnWindow запускает заданную процедуру при выделении
определенного окна. С помощью свойства OnTime программа может
реагировать на события, связанные со временем. Для отмены реакции на
событие свойству OnTime присваивается пустая строка.
Примеры
Sub Document_Open ()
Call СчетОткрытийДокумента
End Sub
Sub Document_Close ()
Call СледующийДокумент
ActiveDocument.Save
End Sub
Sub СчетОткрытийДокумента ()
' Снабдите документ полем в колонтитуле, а в форму UserForm1
‘ поместите поле Счетчик
On Error GoTo форма
ПереходВКолонтитул
счетчикОткрытий = Selection.Fields (1).Result
UserForm1.Счетчик.Text = счетчикОткрытий
Selection.Fields (1).Select
x = Val (счетчикОткрытий) + 1
z = "QUOTE """ & x & """"
Selection.Fields.Add Range := Selection.Range, _
Type := wdFieldEmpty, Text := z
форма:
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
UserForm1.Show
End Sub
Public Sub ПереходВКолонтитул ()