Событие Application.NewDocument (Word)

Статья
04/07/2023

Происходит при создании нового документа.

Примечание.

Если вы работаете с документом, внедренным в другой документ, это событие не произойдет.

Синтаксис

Частные вложенные приложения _NewDocument(ByVal Doc as Document)

Выражение Переменная, представляющая объект Application , объявленный с событиями в модуле класса.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Док	Обязательный	Документ	Новый документ.

Замечания

Дополнительные сведения об использовании событий с объектом Application см. в разделе Использование событий с объектом Application.

Пример

В этом примере пользователь спрашивает, следует ли сохранять все остальные открытые документы при создании нового документа. Этот код должен быть помещен в модуль класса, и экземпляр класса должен быть правильно инициализирован, чтобы увидеть этот пример работы. Инструкции по выполнению этой задачи см. в разделе Использование событий с объектом Application .

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_NewDocument(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

См. также

Объект Application

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через