How the fill holes in column?

[Luc]

In a sheet, I have one column with names but as there are multiple rows for that name, the name is not repeated but i need it on all rows for further .
So I try to write a macro to do that

Sub Main
Dim oDocument As Object, oSheet As Object, oCell As Object
Dim celule as string
Dim cur_nom as string

oDocument=ThisComponent
oSheet=oDocument.Sheets(0)
'B13 is
row = 12
col = 1
'------
maxrow = 20

do
oCell=oSheet.getCellByPosition(col,row)
celule = oCell.String
if len(celule) <> 0 then
'not empty
cur_nom = celule
else
'empty
oCell.setstring(cur_nom)
endif
row = row + 1
loop until row > maxrow

End Sub

That doesn't work because len(celule) always return the length of the first name even in the current cell is empty.
Please please help me.

[SergeM]

I have found this in 817-1826-10.pdf (SUN document api.openoffice.org) :

To check if the contents of a cell contains a number or a string, use the Type property:

[Luc]

It could
Finally i found a work around maybe not too academic
I just do

if len(trim(celule)...

Thanks anyway