Michele Zarri wrote:
> @ Angelo: non so programmare in python, ma in StarBasic dovrebbe essere una
> macro di una decina di righe
In mancanza di meglio:
Sub PrimaMaiuscolaInUnaSelezione
oRange = ThisComponent.CurrentSelection.RangeAddress
oSheet = ThisComponent.CurrentController.ActiveSheet
for i=oRange.StartColumn to oRange.EndColumn
for j=oRange.StartRow to oRange.EndRow
oCell = oSheet.GetCellByPosition(i,j)
oCell.String =
ucase(left(oCell.String,1))+lcase(right(oCell.String,len(oCell.String)-1)
next j
next i
End Sub
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
