Evento Application.DocumentChange (Word)

Este evento se produce al crear un nuevo documento, al abrir un documento existente o al convertir otro documento en el documento activo.

Sintaxis

expression.**DocumentChange'()

Expresión Variable que representa un objeto "Application" declarado con eventos en un módulo de clase.

Comentarios

Para obtener información sobre el uso de eventos con el objeto Application , consulte Uso de eventos con el objeto Application.

Ejemplo:

En este ejemplo se pregunta al usuario si desea guardar todos los demás documentos abiertos al cambiar la selección del documento. Este código debe colocarse en un módulo de clase y una instancia de la clase debe inicializarse correctamente para ver cómo funciona este ejemplo; consulte Uso de eventos con el objeto Applicationpara obtener instrucciones sobre cómo hacerlo.

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

Vea también

Objeto Application

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.