OooとVBScript(コメントへの回答)

VB6.0を持っていないので確認できないのですが、参照設定不要だと思います。

VBScriptの下記コードは問題なく動きます。（VBScriptとして保存して実行して下さい）

（１）Writer（ライター）を開いて文字を入力

'---ここから
Set oSM= WScript.CreateObject( "com.sun.star.ServiceManager" )
Set oDesktop= oSM.createInstance( "com.sun.star.frame.Desktop" )

Dim args()
Set oDocument= oDesktop.loadComponentFromURL( "private:factory/swriter", "_blank", 0, args )

'テキストオブジェクトを作成
Set oText= oDocument.getText

'カーソルオブジェクトを作成
Set oCursor= oText.createTextCursor

oText.insertString oCursor, "一行目" & vbLf, false
oText.insertString oCursor, "二行目", false
'---ここまで

（２）Calc（カルク）を開いて文字を入力し保存する

'---ここから
Set oSM= WScript.CreateObject( "com.sun.star.ServiceManager" )
Set oDesktop= oSM.createInstance( "com.sun.star.frame.Desktop" )

Dim args()
Set oCalcDoc=oDesktop.loadComponentFromURL( "private:factory/scalc", "_blank", 0, args )
Set oSheet=oCalcDoc.getSheets().getByIndex(0)

For i=0 to 10

Set oCell=oSheet.getCellByPosition(0,i)
'oCell.String=i
'oCell.SetString(i)
oCell.setValue(i)
oCell.NumberFormat=2
'oCell.setFormula( "=FUNCTION()" )
oCell.CellBackColor = RGB(200,200,200)

Next

Set oPropertyValue = oSM.Bridge_GetStruct( "com.sun.star.beans.PropertyValue" )
oPropertyValue.Name="Overwrite"
oPropertyValue.Value = True

Dim MyFileNameUrl
MyFileNameUrl = ConvertToUrl( "C:\test.ods" )

oCalcDoc.storeAsURL MyFileNameUrl, Array(oPropertyValue)
oCalcDoc.close(True)

Function ConvertToUrl(strFile)

strFile = Replace( strFile, "\", "/" )
strFile = Replace( strFile, ":", "|" )
strFile = Replace( strFile, " ", "%20" )
strFile = "t; + strFile
ConvertToUrl = strFile

End Function

'---ここまで