Compartilhar via


Evento Document.New (Word)

Ocorre quando um novo documento baseado no modelo é criado. Um procedimento do evento New será executado somente se ele está armazenado em um modelo.

Sintaxe

expression.**Private Sub Document_New'

Expressão Uma variável que representa um objeto Document .

Comentários

Para obter informações sobre como usar eventos com o objeto Document , consulte Usando eventos com o objeto Document.

Exemplo

Este exemplo pergunta ao usuário se deve salvar todos os outros documentos abertos quando um novo documento baseado no modelo é criado. (Esse procedimento é armazenado no módulo de classe EsteDocumento de um modelo, não é um documento).

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

Confira também

Objeto Document

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.