6.1.9 Kann man eine Datei ungepackt speichern?
Achtung! Dies geht leider nur bis 00 1.1.2 bzw S0 Service Pack 2. In OO 2.0/SO 8.0 wird die Funktion zur Zeit nicht unterstützt

Man kann! Über ein Makro.
Dazu muß man bei speichern den Parameter "Unpacked" der Methode storeasurl auf True setzen. Dann wird in dem Zielverzeichnis ein Unterverzeichnis mit den Daten angelegt.

sub SaveAsUnpacked
  dim mydoc as object
  dim myFileproperties(0) as new com.sun.star.beans.PropertyValue
  dim myurl as string

  mydoc = ThisComponent
  myurl = "file:///d:/test/test3.sxw"
  myFileproperties(0).Name = "Unpacked" 
  myFileproperties(0).Value = True

  mydoc.storeasurl(myurl,myfileproperties())
end sub
Seitenanfang