[es-discuss_es] Re: OOO basic

Mauricio Baeza <[email protected]> Mon, 21 Mar 2011 23:15:08 -0600
Newsgroups	gmane.comp.openoffice.general.spanish
Organization	Universo Libre México, A.C.
Message-ID	<[email protected]>
--=-6/UWEbCVFQ2eBBgPRewD
Content-Type: text/plain; charset="UTF-8"
Content-Transfer-Encoding: quoted-printable

On vie, 2011-03-18 at 20:56 -0300, Cincoclavos wrote:

> Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO=
=20
>=20
> 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=
=20
> un componente de Calc, mi pregunta es cual es el equivalente para=20
> insertar hojas en Draw, y cual seria el comando para duplicar hojas en Dr=
aw.
> Saludos a todos
> --


Hola...

Es muy sencillo, para crear nuevas p=C3=A1ginas y duplicar la que quieras,
usa el siguiente c=C3=B3digo:

Option Explicit

Sub Pruebas()
Dim oDoc As Object
Dim oPaginasDibujo As Object
Dim oPagina As Object
Dim oPagina2 As Object

	'Creamos un nuevo documento de Draw
	oDoc =3D getNuevoDocumento( "sdraw" )
	'Las p=C3=A1ginas de dibujo
	oPaginasDibujo =3D oDoc.DrawPages
	'Insertamos una nueva p=C3=A1gina al inicio
	oPaginasDibujo.insertNewByIndex(0)
	'La segunda p=C3=A1gina
	oPagina =3D oPaginasDibujo.getByIndex(1)
	'La duplicamos
	oPagina2 =3D oDoc.duplicate( oPagina )
	'Le cambiamos el nombre
	oPagina2.Name =3D "Copia"

End Sub


Function getNuevoDocumento( Tipo As String ) As Object
Dim sRuta As String
	sRuta =3D "private:factory/" & Tipo
	getNuevoDocumento =3D StarDesktop.loadComponentFromURL( sRuta,
"_default", 0, Array() )
End Function



Saludos




--=20
__________________________________
Mauricio Baeza Serv=C3=ADn
Universo Libre M=C3=A9xico, A.C.
Fundador y Director General

Todo lo que no podemos dar nos posee... Andre Gide
--
-----------------------------------------------------------------
To unsubscribe send email to [email protected]
For additional commands send email to [email protected]
with Subject: help

--=-6/UWEbCVFQ2eBBgPRewD
Content-Type: text/html; charset="utf-8"
Content-Transfer-Encoding: 7bit

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 TRANSITIONAL//EN">
<HTML>
<HEAD>
  <META HTTP-EQUIV="Content-Type" CONTENT="text/html; CHARSET=UTF-8">
  <META NAME="GENERATOR" CONTENT="GtkHTML/3.32.2">
</HEAD>
<BODY>
On vie, 2011-03-18 at 20:56 -0300, Cincoclavos wrote:
<BLOCKQUOTE TYPE=CITE>
<PRE>
Hola a todos: Comenze a juguetear con Ooo Basic leyendo Aprendiendo OOO 

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
--
</PRE>
</BLOCKQUOTE>
<BR>
Hola...<BR>
<BR>
Es muy sencillo, para crear nuevas p&#225;ginas y duplicar la que quieras, usa el siguiente c&#243;digo:<BR>
<BR>
Option Explicit<BR>
<BR>
Sub Pruebas()<BR>
Dim oDoc As Object<BR>
Dim oPaginasDibujo As Object<BR>
Dim oPagina As Object<BR>
Dim oPagina2 As Object<BR>
<BR>
	'Creamos un nuevo documento de Draw<BR>
	oDoc = getNuevoDocumento( &quot;sdraw&quot; )<BR>
	'Las p&#225;ginas de dibujo<BR>
	oPaginasDibujo = oDoc.DrawPages<BR>
	'Insertamos una nueva p&#225;gina al inicio<BR>
	oPaginasDibujo.insertNewByIndex(0)<BR>
	'La segunda p&#225;gina<BR>
	oPagina = oPaginasDibujo.getByIndex(1)<BR>
	'La duplicamos<BR>
	oPagina2 = oDoc.duplicate( oPagina )<BR>
	'Le cambiamos el nombre<BR>
	oPagina2.Name = &quot;Copia&quot;<BR>
<BR>
End Sub<BR>
<BR>
<BR>
Function getNuevoDocumento( Tipo As String ) As Object<BR>
Dim sRuta As String<BR>
	sRuta = &quot;private:factory/&quot; &amp; Tipo<BR>
	getNuevoDocumento = StarDesktop.loadComponentFromURL( sRuta, &quot;_default&quot;, 0, Array() )<BR>
End Function<BR>
<BR>
<BR>
<BR>
Saludos<BR>
<BR>
<BR>
<BR>
<BR>
<TABLE CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
<TR>
<TD>
-- <BR>
__________________________________<BR>
Mauricio Baeza Serv&#237;n<BR>
Universo Libre M&#233;xico, A.C.<BR>
Fundador y Director General<BR>
<BR>
<B>Todo lo que no podemos dar nos posee... Andre Gide</B>
</TD>
</TR>
</TABLE>
</BODY>
</HTML>

--=-6/UWEbCVFQ2eBBgPRewD--