Partilhar via


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 'Application' declarado com eventos em um módulo de classe.

Comentários

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