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
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.