Событие Application.DocumentChange (Word)
Происходит при создании нового документа, при открытии существующего документа или при создании активного документа другим документом.
expression.**DocumentChange'()
Выражение Переменная, представляющая объект Application, объявленный с событиями в модуле класса.
Сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.
В этом примере пользователь спрашивает, следует ли сохранять все остальные открытые документы при изменении фокуса документа. Этот код должен быть помещен в модуль класса, и экземпляр класса должен быть правильно инициализирован, чтобы увидеть этот пример работы. Инструкции по выполнению этой задачи см. в разделе Использование событий с объектом Application.
Public WithEvents appWord as Word.Application
Private Sub appWord_DocumentChange()
Dim intResponse As Integer
Dim strName As String
Dim docLoop As Document
intResponse = MsgBox("Save all other documents?", vbYesNo)
If intResponse = vbYes Then
strName = ActiveDocument.Name
For Each docLoop In Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.