--- cut --- > > > 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 > > Provata, funziona che è una meraviglia infinitamente grazie! in effetti non avevo realizzato che il comando andava tutto su una riga, eppure un minimino di basic l'avevo studiato...lavoro troppo, ho il cervello totalmente appannato....menomale che in OOo abbiamo una list fantastica ed un Michele al di sopra di ogni aspettativa :-D
Novelli Angelo ------------------------------------------------------ Leggi GRATIS le tue mail con il telefonino i-mode di Wind http://i-mode.wind.it/ --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
