OpenOffice.info

Sub Speichern
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl= "file:///C:/test"
myProps(0).Name="FilterName"
myProps(0).Value = "HTML (StarWriter)"

myDoc = thisComponent
myDoc.storeAsUrl(sUrl,myProps())
End Sub

Hi,

um eine Datei in einem anderen Format zu speichern muss bei Speichern ein Filter verwendet werden. Der Filter für HTML ist "HTML (StarWriter)".

[code]
Sub Speichern
Dim myProps(0) as New com.sun.star.beans.PropertyValue

sUrl= "file:///C:/test"
myProps(0).Name="FilterName"
myProps(0).Value = "HTML (StarWriter)"

myDoc = thisComponent
myDoc.storeAsUrl(sUrl,myProps())
End Sub
[/code]

Michael