[es-discuss_es] Fwd: OOO basic

-------- Mensaje original --------
Asunto: OOO basic
Fecha: Fri, 18 Mar 2011 20:56:46 -0300
De: Cincoclavos <[email protected]>
A: [email protected]

Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO
Basic, arme en base a los ejemplos el siguiednte 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