@MarcoSalles; uso estas macros:
A Primeira Pergunta se quer Salvar ( quando houve alteração );
'=============================
sub ArquivoFecharConfirmacao
'=============================
Dim document As Object, dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:CloseWin", "", 0, Array())
end sub
A Segunda Salva e Fecha sem consultar:
'=============================
sub ArquivoSalvarFechar
'=============================
Dim document As Object, dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
dispatcher.executeDispatch(document, ".uno:CloseWin", "", 0, Array())
end sub
A Terceira Salva sem fechar:
'=============================
sub ArquivoSalvarSemFechar
'=============================
Dim document As Object, dispatcher As Object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
end sub
A Quarta Fecha como esta, se houve alteração não é salvo:
'===============================================
Sub FecharArquivoAtualSemSalvar
'===============================================
document = thisComponent
document.close(true)
End Sub
Caso a resposta atendeu sua necessidade, por gentileza, click na bolinha a esquerda da resposta, para finalizar a pergunta.