Automatizar OpenOffice y Libre Ofice

1,333 views
Skip to first unread message

arti...@gmail.com

unread,
Jul 20, 2012, 11:35:45 AM7/20/12
to publice...@googlegroups.com
¿ Sabe alguien como automatizar OpenOfice y Libre Ofice ?, concretamente Writter y hoja de cálculo así como tener un texto 
escrito con OpenOfice y unas variables predefinidas y poder sustituir sus valores por los de una tabla de datos, es posible ?, saludos.

Carlos Alfaro

unread,
Jul 20, 2012, 12:07:36 PM7/20/12
to publice...@googlegroups.com

Saludos Artigest:

 

El amigo Milton, compartió lo siguiente el 13 de junio:

 

con esta rutina he logrado ya  automatizar la generaciond e una hoja de calculo en Libreoffice

y funciona perfecto

 

en el boton imprimir 

do openoffice()

poncelda(3,10,"Reporte de Ventas")

poncelda(3,11,"Enero")

poncelda(3,12,"Febrero")

poncelda(3,13,"Marzo")

poncelda(4,11,1000)

poncelda(4,12,2000)

poncelda(4,13,1800)

 

 

 

proc openoffice

   oServOO = CREATEOBJECT("Com.Sun.Star.ServiceManager.1") 

   oPlatOO = oServOO.CreateInstance("com.sun.star.frame.Desktop") 

   oReflectX = oServOO.createInstance("com.sun.star.reflection.CoreReflection") 

   oValorP = CREATEOBJECT("Relation") 

   oReflectX.forName("com.sun.star.beans.PropertyValue").CreateObject(@oValorP) 

 

   DIMENSION aProp(1) 

   aProp[1] = oValorP 

   aProp[1].Name = "ReadOnly" 

   aProp[1].Value = .F. 

   oDoc = oPlatOO.LoadComponentFromURL("private:factory/scalc", "_blank", 0, @aProp) 

   oHoja = oDoc.getSheets.getByIndex(0)

enproc 

 

 

procedure  poncelda

  lpara kfil,kcol, kval

   oCelda = oHoja.getCellByPosition(kcol-1,kfil-1) 

   oDoc.CurrentController.Select(oCelda) 

   oDoc.CurrentSelection.formula =kval

endproc 

 

 

Bendiciones

 

Carlos Alfaro

--
 
 
 

HernanCano

unread,
Jul 21, 2012, 1:02:06 AM7/21/12
to publice...@googlegroups.com

HernanCano

unread,
Jul 21, 2012, 1:10:35 AM7/21/12
to publice...@googlegroups.com
Incluso la técnica mostrada a continuación te servirá:

Combina con Word
http://www.fpress.com/revista/num0506/art.htm

(( abres el archivo con OpenOffice Writer, y utilizar la función lfBuscaReplaCadena ajustada a Writter ¿? sorry: no full info about this))


El viernes, 20 de julio de 2012 10:35:45 UTC-5, arti...@yahoo.es escribió:
Reply all
Reply to author
Forward
0 new messages