Tal como lo hemos prometido aquí: http://user.services.openoffice.org/es/ ... =50&t=6479 tenemos la versión 0.0.1 de la extensión para simplificar un poco, las a veces, largas líneas que se requieren para programar macros en OOo/LibO...
Si instalaron la versión de pruebas del artículo en cuestión, tienen que desintalarla antes para poder instalar esta nueva:
Ultima Edición: 13-Abril-2012 Para probarla, usen la siguiente macro:
Código: Seleccionar todo
Option Explicit
Sub Main
Dim oUtil As Object
Dim oDoc As Object
oUtil = createUnoService("com.universolibre.util.UniversoLibreUtil")
oDoc = oUtil.getComponent("")
MsgBox oDoc.Title
oDoc = oUtil.newDoc(0)
End Sub
con el segundo método se puede notar un poco más la comparación entre el método normal de crear una nueva hoja de calculo:
Código: Seleccionar todo
oDoc = StarDesktop.loadComponentFromURL("private:factory/scalc", "_blank", 0, Array())
Código: Seleccionar todo
oDoc = oUtil.newDoc(0)
Código: Seleccionar todo
scalc = 0
swriter = 1
simpress = 2
sdraw = 3
smath = 4
Con cada actualización le ire agregando los métodos más repetidos y tediosos para simplificarlos, lo interesante de esto, es que podemos llamar a nuestros métodos desde cualquier lenguaje de script que soporte OOo/LibO (Basic, Python, JavaScript, BeanShell) o desde lenguajes externos como VB, VB.net, etc...
Pueden ir pensando en esas largas líneas que tanto les cuestan, para ver como las podemos simplificar.
Un abrazo a todos...