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
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.