Here is a Basic macro to create a new Calc document. It works OK in OOo 1.1.3 but it 
systematically crashes 1.9m87

Sub testWriteDoc
Dim myDoc As Object, adresseDoc As String, propFich(), myCell As Object
adresseDoc = "private:factory/scalc"
myDoc = StarDesktop.LoadComponentFromURL(adresseDoc, "_blank", 0, propFich)
myCell = myDoc.Sheets(0).getCellRangeByName("A1")
myCell.String = "Hello"
adresseDoc = convertToURL("C:\Docs OpenOffice\tarata.ods")
myDoc.storeAsURL(adresseDoc, propFich)
myDoc.close(True)
MsgBox("Document written")
End Sub