[es-discuss_es] OOO basic

Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO 
Basic, arme en base a los ejemplos el siguente codigo
sub prueba
CreandoNuevosDocumentos1()
InsertarNuevaHoja3()
end sub


Sub CreandoNuevosDocumentos1()
Dim sRuta As String
Dim mArg()
Dim oNuevoDocumento As Object
sRuta = "private:factory/scalc"
oNuevoDocumento = StarDesktop.loadComponentFromURL( sRuta, "_default", 
0, mArg() )
End Sub

Sub InsertarNuevaHoja3()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String
sNombre = Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <> "" Then
oHojas = ThisComponent.getSheets()
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos al final
oHojas.insertNewByName( sNombre, oHojas.getCount() )
End If
oHoja = ThisComponent.getSheets.getByName(sNombre)
ThisComponent.getCurrentController.setActiveSheet(oHoja)
End If
End Sub

que me permite crear un documento en calc e insertarle una nueva hoja
pudiendo ingresarle un nombre, pero mi idea no es calc sino Draw
con lo cual reemplazo sRuta = "private:factory/scalc" por
sRuta = "private:factory/sdraw"

El archivo se crea en Draw pero me tira un error en
oHojas = ThisComponent.getSheets()
me dice que no encuentra este componente, lo cual es razonable porque es 
un componente de Calc, mi pregunta es cual es el equivalente para 
insertar hojas en Draw, y cual seria el comando para duplicar hojas en Draw.
Saludos a todos
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help