Método Application.Quit (Word)
Encerra o Microsoft Word e opcionalmente salva ou circula os documentos abertos.
Sintaxe
expressão. Sair (SaveChanges, OriginalFormat, RouteDocument)
expressão Obrigatório. Uma variável que representa um objeto Application.
Parâmetros
| Nome | Obrigatório/Opcional | Tipo de dados | Descrição |
|---|---|---|---|
| SaveChanges | Opcional | Variant | Especifica se o Word salva documentos alterados antes de fechar. Pode ser uma das constantes WdSaveOptions. |
| OriginalFormat | Opcional | Variant | Especifica os maneira Word salva documentos cujo formato original não era documento do Word. Pode ser uma das constantes WdOriginalFormat. |
| RouteDocument | Opcional | Variant | True para encaminhar o documento para o próximo destinatário. Se o documento não tiver uma lista de circulação anexada, este argumento será ignorado. |
Exemplo
Este exemplo encerra o Word e pergunta se o usuário deseja salvar cada documento que tenha sido alterado desde que foi salvo pela última vez .
Application.Quit SaveChanges:=wdPromptToSaveChanges
Este exemplo pergunta se o usuário deseja salvar todos os documentos. Se o usuário clicar no botão Yes(Sim), todos os documentos serão salvos no formato do Word antes de o Word ser encerrado.
Dim intResponse As Integer
intResponse = _
MsgBox("Do you want to save all documents?", vbYesNo)
If intResponse = vbYes Then Application.Quit _
SaveChanges:=wdSaveChanges, OriginalFormat:=wdWordDocument
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.