Evento Application.DocumentOpen (Word)

Ocorre quando um documento é aberto.

Sintaxe

expressão. DocumentoAbrir (Documento Como Documento**)

expressão Uma variável que representa um objeto "Aplicação" 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 deseja salvar todos os outros documentos abertos quando um documento é aberto. 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çãopara obter direções sobre como fazê-lo.

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.