Compartilhar via

Evento Application.DocumentBeforeClose (Word)

Ocorre imediatamente antes que qualquer documento aberto se feche.

Observação

Se estiver a trabalhar com um documento incorporado noutro documento, este evento não ocorrerá.

Sintaxe

Expressão de Sub privado "DocumentBeforeClose** (Documento Como Documento**, Cancelar Como Booleano)

expressão Uma variável que representa um objeto de Aplicação declarado com eventos num módulo de classe.

Parâmetros

Nome Obrigatório/Opcional Tipo de dados Descrição
Doc Obrigatório Documento 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 obter mais informações sobre como utilizar eventos com o objeto Aplicação , veja Utilizar eventos com o objeto Aplicação.

Exemplo

Este exemplo solicita que o usuário responda sim ou não antes de fechar qualquer documento. Este código tem de ser colocado num módulo de classe e uma instância da classe tem de ser inicializada corretamente para ver este exemplo funcionar; veja Utilizar eventos com o objeto Aplicação para obter direções sobre como fazê-lo.

Public WithEvents appWord as Word.Application 
 
Private Sub appWord_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