Evento Application.NewDocument (Word)

Ocorre quando um novo documento é criado.

Sintaxe

Private Sub Application _NewDocument(ByVal Doc As Document)

expressão Uma variável que representa um objeto de Aplicação que foi declarado com eventos num módulo de classe.

Parâmetros

Comentários

Para obter mais informações sobre como utilizar eventos com o objeto Aplicação , veja Utilizar eventos com o objeto Aplicação.

Exemplo

Este exemplo pergunta ao usuário se deve salvar todos os outros documentos abertos quando um novo documento é criado. Este código tem de ser colocado num módulo de classe e uma instância da classe tem de ser inicializada corretamente para ver este exemplo funcionar; veja Utilizar eventos com o objeto Aplicação para obter direções sobre como fazê-lo.

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

Confira também

• Objeto de Aplicativo

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.