Evento Application.DocumentOpen (Word)

Ocorre quando um documento é aberto.

Sintaxe

expressão. DocumentOpen (Documento como Documento**)

Expressão Uma variável que representa um objeto 'Application' 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 documento que está sendo aberto.

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 deseja salvar todos os outros documentos abertos quando um documento é aberto. 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 Applicationpara obter instruções sobre como realizar isso.

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_DocumentOpen(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.