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.

Observaciones

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.