Traduciendo de LibreOffice Basic a Python, Macros en python LO cap. 2

En este video traduzco un macro muy, pero muy, sencillo escrito en OOO Basic a Python para que corra desde el aplicativo APSO.

(Sientanse libres de ver el video a velocidad 2X)




Codigo:
------------------------------------------------------------------------------------------------------------

Basic (No es lo mismo que VBA, es mucho mejor).
Option Explicit

Sub Colorear()

Dim sRango As String
Dim sHoja As String
Dim sFecha As String
dim nombre as string


 sHoja = "indice"
sRango = "A1:A5"

dim oTC as object 'Object this component
dim oHojas as object 'el ibro o colección de hojas
dim IndColores as object
dim oH_Nueva as object 'Hoja nueva que contendrá cada color
dim oRango as object 'Rango de la lista

Dim i As Integer
Dim CantColores As Integer

i = 0

oTC = ThisComponent
oHojas = oTC.getSheets()
IndColores = oHojas.getByName(sHoja)
oRango = IndColores.getCellRangebyName(sRango)

CantColores = oRango.getRows().getCount()

For i = 1 To CantColores-1
nombre = oRango.getCellbyPosition(0,i).getString()
oHojas.insertNewByName(nombre,99)
with oHojas.getByName(nombre)

.TabColor = RGB(255,0,0) 'Color de la pestaña
.getCellRangebyName("A1").SetString(nombre)


end with
next i

End Sub
------------------------------------------------------------------------------------------------------------

Python:
# coding: utf-8
from __future__ import unicode_literals

import traceback
import uno

def RGB2(r,g,b):
return r*256**2 + g*256 + b

def Colorear():

sHoja = 'indice'
sRango = 'A1:A5'

i = 0

desktop = XSCRIPTCONTEXT.getDesktop()
oTC = desktop.getCurrentComponent()


oHojas = oTC.getSheets()
IndColores = oHojas.getByName(sHoja)
oRango = IndColores.getCellRangeByName(sRango)

CantColores = oRango.getRows().getCount()

for i in range(1,CantColores):

nombre = oRango.getCellByPosition(0,i).getString()
oHojas.insertNewByName(nombre,99)
HojaAct = oHojas.getByName(nombre)
HojaAct.TabColor = RGB2(255,0,0) #Color de la pestaña
HojaAct.getCellRangeByName('A1').setString(nombre)
------------------------------------------------------------------------------------------------------------