OpenOffice.info

Hallo,

würde gern mein Dokument ungepackt abspeichern. Aber irgendwie will es nicht so funktionieren wie ich es gerne hätte - es wir nur das aktuelle Dokument gespeichert - aber leider nicht entpackt...

*************
Sub EntpacktSpeichern
Dim oDoc As Object
Dim aFileProp(1) as New com.sun.star.beans.PropertyValue
Dim sDatei As String

oDoc = ThisComponent
sDatei = "file:///c:/agroxml/17_10_2005/betrieb/entpackt/betrieb.odt"
aFileProp(0).Name = "Unpacked"
aFileProp(0).Value = True
aFileProp(1).Name = "Overwrite"
aFileProp(1).Value = True

oDoc.storeAsURL(sDatei, aFileProp())
End Sub
**************

Über einen Tipp wäre ich dankbar...

Gruß Andreas

Hi,
die verwendete Einstellung der FileProperties ist eigentlich richtig.
Laut SDK 2.0 gibt es auch den Parameter "unpacked" noch.
Aber es geht es nicht mehr. 1.1.4 und 1.1.5 auch nicht.

Die Funktion ist wohl still gelegt worden, nach dem sie seit 1.1.3 nicht richtig funktioniert. (leere Xml-Dateien).

mfg
Michael

schade eigentlich

aber besten Dank für die Info.

Gruss
Andreas