Partilhar via


Evento Application.DocumentBeforeClose (Word)

Ocorre imediatamente antes que qualquer documento aberto se feche.

Observação

Se você estiver trabalhando com um documento inserido em outro documento, esse evento não ocorrerá.

Sintaxe

Sub expressão privada 'DocumentBeforeClose** (Doc As Document**, Cancel as Boolean)

Expressão Uma variável que representa um objeto Application declarado com eventos em um 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 usar eventos com o objeto Application , consulte Usando eventos com o objeto Application.

Exemplo

Este exemplo solicita que o usuário responda sim ou não antes de fechar qualquer documento. Esse código deve ser colocado em um módulo de classe e uma instância da classe deve ser inicializada corretamente para ver este exemplo funcionar; consulte Usar eventos com o objeto Application para obter instruções sobre como realizar isso.

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.