Die Suche im Forum führte mich zu verschiedenen Lösungsansätzen. Deren Umsetzungen lösen mein Problem leider nicht:
Beim Öffnen des Dokuments wird in den Vollbildmodus geschaltet und ein Dialog mit Schaltflächen geöffnet.
Beim Klick auf den Button "Beenden" soll der Vollbildmodus ausgeschaltet und das Dokument ohne Speichern geschlossen werden.
Dabei erscheint sofort der "Dolumentwiederherstellungsdialog" und ich kann nicht erkennen, wo der Fehler liegt.
Wenn ich den Dialog händisch über "X" schließe, den Vollbildmodus und LibreOffice beende, erhalte ich keine Fehlermeldung.
Makro zum Schließen:
Code: Alles auswählen
Sub Tool_Ende
oDialog.endExecute()
oDoc = thisComponent
'------------------------
stopFullScreen
'------------------------
oDoc.setModified(False)
oDoc.store(False)
wait 500
oDoc.close(true)
wait 500
'document = ThisComponent.CurrentController.Frame
'dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
'dispatcher.executeDispatch(document, ".uno:CloseDoc", "", 0, Array())
'Shell("pkill soffice.bin")
end sub
Code: Alles auswählen
sub stopFullScreen()
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args(0) as new com.sun.star.beans.PropertyValue
args(0).Name = "FullScreen"
args(0).Value = False
dispatcher.executeDispatch(document, ".uno:FullScreen", "", 0, args())
end sub
Ich habe die Datei angehängt. Vielleicht hat jemand eine Lösung.
Vielen Dank.
Gruß
Uwe