Compartilhar via


Evento Application.DocumentBeforeSave (Word)

Ocorre antes que um documento aberto seja salvo.

Sintaxe

expressão. DocumentBeforeSave (Documento DocAs**, SaveAsuIAs booleano, CancelAs booleano)

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 Document O documento que está sendo salvo
SaveAsUI Obrigatório Boolean True se a caixa de diálogo Salvar como for exibida, se você deseja salvar um novo documento, em resposta ao comando Salvar; ou em resposta ao comando Salvar como; ou em resposta ao método SaveAs ou SaveAs2.
Cancel Obrigatório Boolean False quando o evento ocorre. Se o procedimento de evento define este argumento como True, o documento não é salvo 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 salvar o 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_DocumentBeforeSave _ 
 (ByVal Doc As Document, _ 
 SaveAsUI As Boolean, _ 
 Cancel As Boolean) 
 
 Dim intResponse As Integer 
 
 intResponse = MsgBox("Do you really want to " _ 
 & "save the document?", _ 
 vbYesNo) 
 
 If intResponse = vbNo Then Cancel = True 
End Sub

Confira também

Objeto Application

Salvamento Automático

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.