[es-discuss_es] Ooo Basic

Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO B=
asic,=20
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 =3D "private:factory/scalc"
oNuevoDocumento =3D StarDesktop.loadComponentFromURL( sRuta, "_default", =
0, mArg
() )
End Sub

Sub InsertarNuevaHoja3()
Dim oHojas As Object
Dim oHoja As Object
Dim sNombre As String
sNombre =3D Trim(InputBox("Nombre de la nueva hoja"))
If sNombre <> "" Then
oHojas =3D ThisComponent.getSheets()
If Not oHojas.hasByName(sNombre) Then
'Si no existe la insertamos al final
oHojas.insertNewByName( sNombre, oHojas.getCount() )
End If
oHoja =3D 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 =3D "private:factory/scalc" por
sRuta =3D "private:factory/sdraw"

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