Macro borrar un rango de celdas de una determinada hoja de cálculo en OpenOffice Calc

Para eliminar en Hoja2 el rango de celdas D8:F14 en tu editor Basic llama a la macro de este modo:

BorrarCeldas( "Hoja2", "D8:F14")

La macro:

Sub BorrarCeldas(NombreHoja as string, RangoCeldas as string)
Dim oDoc As Object
Dim oRango As Object

 'Este documento
 oDoc = ThisComponent       
 'Hoja se define por nombre, rango por nombre
 oRango = oDoc.getSheets.getByName(NombreHoja).getCellRangeByName(RangoCeldas)
 
 'Borramos las celdas del rango en la hoja
 oRango.clearContents(1023)           

End Sub