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.