Partilhar via


Evento Application.NewDocument (Word)

Ocorre quando um novo documento é criado.

Observação

Se você estiver trabalhando com um documento inserido em outro documento, esse evento não ocorrerá.

Sintaxe

_NewDocument de subaplicação privado(ByVal Doc como documento)

Expressão Uma variável que representa um objeto Application que foi declarado com eventos em um módulo de classe.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Doc Obrigatório Document O novo documento.

Comentários

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

Exemplo

Este exemplo pergunta ao usuário se deve salvar todos os outros documentos abertos quando um novo documento é criado. Esse código deve ser colocado em um módulo de classe e uma instância da classe deve ser inicializada corretamente para ver este exemplo funcionar; consulte Usar eventos com o objeto Application para obter instruções sobre como realizar isso.

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

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.