Evento Application.DocumentOpen (Word)

Este evento se produce al abrir un documento.

Sintaxis

expresión. DocumentOpen (Doc As Document**)

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

Parameters

Nombre	Obligatorio/opcional	Tipo de datos	Descripción
Doc	Obligatorio	Document	Documento que se abre.

Observaciones

Para obtener más 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 documentos abiertos cuando se abre un 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_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

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.