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

Objeto de Aplicativo

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.