Событие Application.DocumentOpen (Word)
Происходит при открытии документа.
Синтаксис
expression. DocumentOpen (документ как документ**)
Выражение Переменная, представляющая объект Application, объявленный с событиями в модуле класса.
Параметры
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Док | Обязательный | Документ | Открываемый документ. |
Замечания
Дополнительные сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.
Пример
В этом примере пользователь спрашивает, следует ли сохранять все остальные открытые документы при открытии документа. Этот код должен быть помещен в модуль класса, и экземпляр класса должен быть правильно инициализирован, чтобы увидеть этот пример работы. Инструкции по выполнению этой задачи см. в разделе Использование событий с объектом Application.
Public WithEvents appWord as Word.Application
Private Sub appWord_DocumentOpen(ByVal Doc As Document)
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 и обратная связь.