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.

Comentarios

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.