Evento Application.DocumentChange (Word)

Ocorre quando um novo documento é criado, quando um documento existente é aberto ou quando um outro documento torna-se o documento ativo.

Sintaxe

expression.**DocumentChange'()

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

Comentários

Para obter 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 o foco de documento é alterado. 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_DocumentChange() 
 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.