Difference between revisions of "ES/Desarrollo/Macros"

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

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")

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())