Set objServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Stardesktop = objServiceManager.createInstance("com.sun.star.frame.Desktop")
Set doc = Stardesktop.loadComponentFromURL("private:factory/swriter", "_blank", 0, Array())
For i=0 To 10
    doc.Text.End.String = i & ": Пример вывода" & vbCr
Next

Set ServiceManager = CreateObject("com.sun.star.ServiceManager")
Set Desktop = ServiceManager.createInstance("com.sun.star.frame.Desktop")
arr = Array()
Set Document = Desktop.LoadComponentFromURL("private:factory/scalc", "_blank", 0, arr)
Set Sheets = Document.getSheets()
Set Sheet = Sheets.getByIndex(0)
For k = 0 To 10
    Sheet.getCellByPosition(0, k).Value = k
Next

Set SaveParam = ServiceManager.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
SaveParam.Name = "FilterName"
SaveParam.Value = "MS Excel 97"
ReDim arr(0)
Set arr(0) = SaveParam
Document.storeToURL "file:///c:/Temp/test.xls", arr