OpenOffice.info

[quote="nanduriel"]Das Thema kann geschlossen werden.[/quote]
[b]Do it yourself![/b] Öffne deinen ersten Beitrag des Themas mit [i]Ändern[/i], stelle dem Betreff den Hinweis »[[i]gelöst[/i]]« voran und klicke auf [i]Absenden[/i]. Fertig.

Gruß
lorbass

Hallo F3K Total ,


vielen, vielen Dank für die Lösung!
Der Code funktioniert einwandfrei =)

Das Thema kann geschlossen werden.

Ich wünsch allen einen guten Start ins neue Jahr

Gruß,
Nanduriel

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

Hallo,
mit einem "Schalter" bexit kannst Du eine Schleife verlassen:
[code]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[/code]Anbei ein Beispiel

Gruß R

Habe viel probiert, aber leider immer noch keine Lösungs gefunden.

Hat keiner eine Idee wie ich ein laufendes Makro mit einem WAIT-Befehl beenden kann?
Bzw. WAIT abbrechen kann

Gruß Nandu

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

Hallo OpenOffice-Community =)


mein Makro soll nach einer gewissen Zeit die verwendete Star-Office-Tabelle schließen und eventuelle Einträge sichern.


----
[code]
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]----

Soweit alles gut. Die Datei schließt sich nach der Zeit von selbst.

Aber...
Wenn ich aus der Tabelle vor der definierten Zeit herausgehe, läuft das Makro im Hintergrund weiter.
Auswirkung: ich komme nur noch schreibgeschützt in die Tabelle und muss warten bis die Zeit abgelaufen ist.
Mit welchem Befehl kann ich mein Makro beim vorzeitigen Beenden abbrechen?

Ich dachte ich könnte ein Button in meine Tabelle einfügen "Speichern und Beenden". Das Makro muss mein Makro Schlafmuetze beenden und anschließend die Datei sichern und beenden. Nur weiß ich nicht wie ich das umsetzen soll =(


Danke für eure Hilfe,
Gruß,
Nandu