ES/Desarrollo/Macros

Algunos ejemplos sencillos

• Este ejemplo sirve para copiar el contenido de una planilla e insertarla en un segundo documento creado .

'Author: Stephan Wunderlich [stephan.wunderlich@sun.com]

[basic] Sub CopySpreadsheet

 firstDoc = ThisComponent
 selectSheetByName(firstDoc, "Sheet2")
 dispatchURL(firstDoc,".uno:SelectAll")
 dispatchURL(firstDoc,".uno:Copy")

REM 'Las primeras lineas nos dicen que tenemos que seleccionar todas las celdas en la planilla y copiarlas'

 secondDoc = StarDesktop.loadComponentFromUrl("private:factory/scalc","_blank",0,dimArray())
 secondDoc.getSheets().insertNewByName("inserted",0)
 selectSheetByName(secondDoc, "inserted")
 dispatchURL(secondDoc,".uno:Paste")

REM Luego creamos una nueva hoja llamada inserted y pegamos las celdas copiadas

End Sub

Sub selectSheetByName(document, sheetName)

 document.getCurrentController.select(document.getSheets().getByName(sheetName))

End Sub

Sub dispatchURL(document, aURL)

 Dim noProps()
 Dim URL As New com.sun.star.util.URL

 frame = document.getCurrentController().getFrame()
 URL.Complete = aURL
 transf = createUnoService("com.sun.star.util.URLTransformer")
transf.parseStrict(URL)

 disp = frame.queryDispatch(URL, "", com.sun.star.frame.FrameSearchFlag.SELF _
        OR com.sun.star.frame.FrameSearchFlag.CHILDREN)
 disp.dispatch(URL, noProps())

End Sub