[es-discuss_es] Re: Ooo Basic

--0016e6dd966b6c049b049f04dcd8
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

es getDrawPages() aqui esta la liga al libro de pitonyak de macros explained
http://books.google.com/books?id=3DcHVIk-BlwA0C&lpg=3DPA237&ots=3DDVEUJgpR0=
G&dq=3Dopenoffice%20draw%20macro&pg=3DPA237#v=3Donepage&q=3Dopenoffice%20dr=
aw%20macro&f=3Dfalse

2011/3/21 <[email protected]>

> 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 =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
> 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
>



--=20
*Alexandro Colorado*
*OpenOffice.org* Espa=C3=B1ol
http://es.openoffice.org
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--0016e6dd966b6c049b049f04dcd8
Content-Type: text/html; charset=UTF-8
Content-Transfer-Encoding: quoted-printable

es getDrawPages() aqui esta la liga al libro de pitonyak de macros explaine=
d<br><a href=3D"http://books.google.com/books?id=3DcHVIk-BlwA0C&amp;lpg=3DP=
A237&amp;ots=3DDVEUJgpR0G&amp;dq=3Dopenoffice%20draw%20macro&amp;pg=3DPA237=
#v=3Donepage&amp;q=3Dopenoffice%20draw%20macro&amp;f=3Dfalse">http://books.=
google.com/books?id=3DcHVIk-BlwA0C&amp;lpg=3DPA237&amp;ots=3DDVEUJgpR0G&amp=
;dq=3Dopenoffice%20draw%20macro&amp;pg=3DPA237#v=3Donepage&amp;q=3Dopenoffi=
ce%20draw%20macro&amp;f=3Dfalse</a><br>
<br><div class=3D"gmail_quote">2011/3/21  <span dir=3D"ltr">&lt;<a href=3D"=
mailto:[email protected]">[email protected]=
</a>&gt;</span><br><blockquote class=3D"gmail_quote" style=3D"margin: 0pt 0=
pt 0pt 0.8ex; border-left: 1px solid rgb(204, 204, 204); padding-left: 1ex;=
">
Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO Bas=
ic,<br>
arme en base a los ejemplos el siguente codigo<br>
sub prueba<br>
CreandoNuevosDocumentos1()<br>
InsertarNuevaHoja3()<br>
end sub<br>
<br>
<br>
Sub CreandoNuevosDocumentos1()<br>
Dim sRuta As String<br>
Dim mArg()<br>
Dim oNuevoDocumento As Object<br>
sRuta =3D &quot;private:factory/scalc&quot;<br>
oNuevoDocumento =3D StarDesktop.loadComponentFromURL( sRuta, &quot;_default=
&quot;, 0, mArg<br>
() )<br>
End Sub<br>
<br>
Sub InsertarNuevaHoja3()<br>
Dim oHojas As Object<br>
Dim oHoja As Object<br>
Dim sNombre As String<br>
sNombre =3D Trim(InputBox(&quot;Nombre de la nueva hoja&quot;))<br>
If sNombre &lt;&gt; &quot;&quot; Then<br>
oHojas =3D ThisComponent.getSheets()<br>
If Not oHojas.hasByName(sNombre) Then<br>
&#39;Si no existe la insertamos al final<br>
oHojas.insertNewByName( sNombre, oHojas.getCount() )<br>
End If<br>
oHoja =3D ThisComponent.getSheets.getByName(sNombre)<br>
ThisComponent.getCurrentController.setActiveSheet(oHoja)<br>
End If<br>
End Sub<br>
<br>
que me permite crear un documento en calc e insertarle una nueva hoja<br>
pudiendo ingresarle un nombre, pero mi idea no es calc sino Draw<br>
con lo cual reemplazo sRuta =3D &quot;private:factory/scalc&quot; por<br>
sRuta =3D &quot;private:factory/sdraw&quot;<br>
<br>
El archivo se crea en Draw pero me tira un error en<br>
oHojas =3D ThisComponent.getSheets()<br>
me dice que no encuentra este componente, lo cual es razonable porque es un=
<br>
componente de Calc, mi pregunta es cual es el equivalente para insertar hoj=
as<br>
en Draw, y cual seria el comando para duplicar hojas en Draw.<br>
Saludos a todos<br>
<font color=3D"#888888">--<br>
-----------------------------------------------------------------<br>
To unsubscribe send email to <a href=3D"mailto:[email protected]=
enoffice.org">[email protected]</a><br>
For additional commands send email to <a href=3D"mailto:[email protected]=
.org">[email protected]</a><br>
with Subject: help<br>
</font></blockquote></div><br><br clear=3D"all"><br>-- <br><b>Alexandro Col=
orado</b><br><b><span style=3D"color: rgb(0, 0, 153);">Open</span><span sty=
le=3D"color: rgb(0, 0, 0);">Office.org</span></b> Espa=C3=B1ol<br><a href=
=3D"http://es.openoffice.org" target=3D"_blank">http://es.openoffice.org</a=
><br>
<br>

--0016e6dd966b6c049b049f04dcd8--