Evento Application.DocumentBeforeClose (Publisher)

Este evento se produce antes de que se cierre cualquier documento.

Sintaxis

expresión. DocumentBeforeClose (Doc, Cancel)

expresión Variable que representa un objeto Application.

Parámetros

Observaciones

Para acceder a los eventos de objeto Application , declare una variable de objeto Application en la sección Declaraciones generales de un módulo de código y, a continuación, establezca la variable igual al objeto Application para el que desea tener acceso a los eventos.

Para obtener información sobre cómo usar eventos con el objeto Application de Microsoft Publisher, consulte Uso de eventos con el objeto Application.

Ejemplo

En este ejemplo se pide al usuario una respuesta afirmativa (sí) o negativa (no) antes de cerrar un documento. Para que el ejemplo funcione, debe colocarse este código en un módulo de clase y debe inicializarse correctamente una instancia de la clase utilizando un ejemplo similar al de la rutina SetPubApp que se muestra a continuación.

Private WithEvents PubApp As Application 
 
Sub SetPubApp() 
 Set PubApp = Publisher.Application 
End Sub 
 
Private Sub PubApp_DocumentBeforeClose(ByVal Doc As Document, Cancel As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Do you really want to close " _ 
 & "the document?", vbYesNo) 
 
 If intResponse = vbNo Then Cancel = True 
 
End Sub

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.