Sub AddLeadingZero

DIM document AS OBJECT
DIM sheet AS OBJECT
DIM cell  AS OBJECT
DIM cells  AS OBJECT
DIM cellrange AS OBJECT

DIM row, col AS INTEGER
DIM msgtext AS STRING

document = ThisComponent
sheet = document.CurrentController.ActiveSheet
cells = document.CurrentSelection

'cellrange = cells.CellAddress 'only works for single cell selection?
'cellrange.Row '0-base index
'cellrange.Col '0-base index
'Msgbox ">> (" + cellrange.Row + "," + cellrange.Column + ")"

cellrange = cells.RangeAddress
'msgtext = ">> (" + cellrange.StartRow + "," + cellrange.StartColumn + ")"
'msgtext = msgtext + " - (" + cellrange.EndRow + "," + cellrange.EndColumn + ")"
'Msgbox msgtext

For col = cellrange.StartColumn To cellrange.EndColumn
	For row = cellrange.StartRow To cellrange.EndRow
		cell = sheet.getCellByPosition(col,row)
		While Len(cell.String) < 9
			cell.String = "0" + cell.String
		Wend
	Next
Next

msgtext = ">> Added for (" + cellrange.StartRow + "," + cellrange.StartColumn + ")"
msgtext = msgtext + " - (" + cellrange.EndRow + "," + cellrange.EndColumn + ")"
Msgbox msgtext

End Sub