OpenOffice.info

muss ich erst testen.

aber sieht so aus, als wäre es genau das, was ich suchte.

Danke
Andreas

  
REM http://www.oooforum.org/forum/viewtopic.phtml?t=3712
REM DannyB 2003-11-06
REM oooforum.org 2009-08-06
REM for douganddolores #87297
Sub dismiss_all_and_close_OOo
    oComponents = StarDesktop.getComponents()
     
    ' Show me how many total components are open?
    oComponentWalker = oComponents.createEnumeration()
    Do While oComponentWalker.hasMoreElements()
       oComponent = oComponentWalker.nextElement()
       oComponent.setModified( FALSE )
       oComponent.close( TRUE )
    Loop
   
    StarDesktop.dispose()
End Sub

       
       If hasUnoInterfaces( oComponent , "com.sun.star.frame.XStorable") Then
       	  If oComponent.isModified() Then       	  
       	     oComponent.store()
       	  End If
       End If
       oComponent.dispose() 

If (ThisComponent.isModified) Then
    If (ThisComponent.hasLocation AND (Not ThisComponent.isReadOnly)) Then

Gestern [url=http://www.oooforum.org/forum/viewtopic.phtml?t=87297&highlight=&sid=384a1801915c67ea3b48443878766039]im englischen Forum[/url]:
[code]
REM http://www.oooforum.org/forum/viewtopic.phtml?t=3712
REM DannyB 2003-11-06
REM oooforum.org 2009-08-06
REM for douganddolores #87297
Sub dismiss_all_and_close_OOo
oComponents = StarDesktop.getComponents()

' Show me how many total components are open?
oComponentWalker = oComponents.createEnumeration()
Do While oComponentWalker.hasMoreElements()
oComponent = oComponentWalker.nextElement()
oComponent.setModified( FALSE )
oComponent.close( TRUE )
Loop

StarDesktop.dispose()
End Sub[/code]

Der Code schliesst alle OOo-Komponenten ohne sie zu sichern.
Wie Andrew dort anmerkt kann der Code -leicht abgeändert- auch automatisch Änderungen sichern:
[code]
If hasUnoInterfaces( oComponent , "com.sun.star.frame.XStorable") Then
If oComponent.isModified() Then
oComponent.store()
End If
End If
oComponent.dispose() [/code]
Anmerkung:
* neue, ungesicherte Dokumente werden mit einem [color=#8040FF]generierten Namen[/color] in einem [color=#BF40FF]Unterverzeichnis[/color] im [color=#008000]Extras>Optionen...>Temporäre Dateien[/color]-Verzeichnis gespeichert; bspw.:/tmp/[color=#BF00FF]svln9.tmp[/color]/[color=#8040FF]svlnh.tmp[/color]
* ich habe den Code nicht getestet mit *.odb oder irgendwelchen Fremdformaten (*.doc, *.xls. *.csv, *.txt usw.)
* ungetestet sind auch geänderte [i]read-only[/i] Dokumente
(aus [url=http://www.pitonyak.org/oo.php]Andrews Dokument[/url]:[code]
If (ThisComponent.isModified) Then
If (ThisComponent.hasLocation AND (Not ThisComponent.isReadOnly)) Then[/code])

Hilft Dir das weiter?

Hi,

Ich hab zwar die Suche bemüht, weil ich weiß, das das Thema schon mal behandelt worden ist, aber ich find nix :(

es geht im endeffekt um eine .ODB, auf die ich mit einem Calc-Dialog zugreife.
Da die Testpersonen etwas weiter weg sind, würde ich gerne bei beenden des Dialogs alle OOo instanzen schliessen, damit evtl Fehler während einer geöffneten Verbindung nicht den Zugriff auf die .ODB blockieren.

schön wäre :

Speichere alle geöffneten Office-Dateien
Schliesse alle Office-Dateien
Beende Schnellstarter

LG
Andreas