Compartilhar via

Evento Application.DocumentBeforeClose (Publisher)

Ocorre imediatamente antes que qualquer documento aberto se feche.

Sintaxe

expressão. DocumentBeforeClose (Documento, Cancelar)

expressão Uma variável que representa um Aplicativo objeto.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Doc Obrigatório Document O documento que está sendo fechado.
Cancel Obrigatório Boolean False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o documento não fechará quando o procedimento for concluído.

Comentários

Para aceder aos eventos de objeto da Aplicação , declare uma variável de objeto Aplicação na secção Declarações Gerais de um módulo de código e, em seguida, defina a variável igual ao objeto Aplicação para o qual pretende aceder a eventos.

Para obter informações sobre como utilizar eventos com o objeto Aplicação do Microsoft Publisher, veja Utilizar eventos com o objeto Aplicação.

Exemplo

Este exemplo pede ao usuário um Yes (Sim) ou um No (Não) como resposta antes de fechar um documento. Para ver este exemplo funcionar, o código precisa ser colocado em um módulo de classe e uma instância da classe precisa ser inicializada corretamente, usando um exemplo parecido com a rotina SetPubApp abaixo.

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

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.

  • Last updated on