save and close document macro

[Tommy27]

very simple macro that saves current OOo document and close it.

I assigned it to the "Esc" key

[DrBones]

Hey Tommy27

What would you add to the code to "save the current record" for writer forms?

Thanks!

DrBones

[Tommy27]

writer forms?

I don't understand... what do you mean exactly?

[RPG]

Hello

For saving data in a form use the basetools of Benitez.
and start a new thread this is off topic here

Romke

[tobski]

I just copy the code:
sub SaveAndClose
dim document as object
dim dispatcher as object
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
ThisComponent.close(True)
end sub
and I get the below email.

Basic: Runtime Error
An exception occurred
Type:com.sun.star.util.closeVetoException Message:.

How I can make a push button where I can save record before closing the form.

[Tommy27]

@tobski

that macro is intended for Writer documents.
it doesn't work in Base