Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Происходит при создании нового документа на основе шаблона. Процедура для события New будет выполняться только в том случае, если оно хранится в шаблоне.
Синтаксис
expression.**Private Sub Document_New'
выражение Переменная, представляющая объект Document .
Замечания
Сведения об использовании событий с объектом Document см. в разделе Использование событий с объектом Document.
Пример
В этом примере пользователь спрашивает, следует ли сохранять все остальные открытые документы при создании нового документа на основе шаблона. (Эта процедура хранится в модуле класса ThisDocument шаблона, а не документа.)
Private Sub Document_New()
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 Application.Documents
With docLoop
If .Name <> strName Then
.Save
End If
End With
Next docLoop
End If
End Sub
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.