OpenOffice.info

Code: Alles auswählen

sub schlafmuetze

rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue

Wait 50000

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:ClearContents", "", 0, Array())



dispatcher.executeDispatch(document, ".uno:Save", "", 0, Array())
        oDoc = thisComponent
odoc.store
odoc.close(true)

end sub

Code: Alles auswählen

global bexit as boolean

sub schlafmuetze
    odoc = thiscomponent
    bexit = false
    for i = 1 to 500
    wait 100
    if bexit then goto 100
    next i
    odoc.store
    odoc.close(true)
    100:
end sub

sub S_exit
    odoc = thiscomponent
    if msgbox ("Soll das Dokument geschlossen werden",36,"Dokument schliessen") = 6 then
        bexit = true
        wait 101
        odoc.store
        odoc.close(true)
    else
        bexit = true    
    endif
end sub