Ask Your Question

Revision history [back]

click to hide/show revision 1
initial version

Hi - Something like this:

sub boldenPurniAma

dim oSheets as object, oSheet as object, oCell as object
dim lRow as long

oSheets = ThisComponent.Sheets

for each oSheet in oSheets

' Beware, lines/cols are numbered from zero'

    for lRow = 3 to 44
        oCell = oSheet.getCellByPosition(13, lRow)        
        oCell.charWeight = com.sun.star.awt.FontWeight.NORMAL
    next lRow

next oSheet

end sub

See documentation here and here

Regards

Hi - Something like this:

sub boldenPurniAma

dim oSheets as object, oSheet as object, oCell as object
dim lRow as long

oSheets = ThisComponent.Sheets

for each oSheet in oSheets

' Beware, lines/cols are numbered from zero'

    for lRow = 3 to 44
        oCell = oSheet.getCellByPosition(13, lRow)        
        oCell.charWeight = com.sun.star.awt.FontWeight.NORMAL
    next lRow

next oSheet

end sub

See documentation here and here

But you can simply do:

sub boldenPurniAma2

dim oSheets as object, oSheet as object, oRange as object

oSheets = ThisComponent.Sheets

for each oSheet in oSheets

' Beware, the lines are numbered from zero'

        oRange = oSheet.getCellRangeByPosition(13, 4, 13, 44)        
        oRange.charWeight = com.sun.star.awt.FontWeight.NORMAL

next oSheet

end sub

Regards