On 7/10/07, [EMAIL PROTECTED] <[EMAIL PROTECTED]> wrote:
> 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 Provata, ma da: errore di sintassi basic simbolo inatteso:CRLF alla riga: oCell.string = pone evidenziato "_=" dove _ sta per lo spazio.... intanto grazie per l'aiuto che รจ una grande cosa... poi, io neanche sarei arrivato a questa decina di righe!! :-D Ciao, Angelo ------------------------------------------------------ Scegli infostrada: ADSL gratis per tutta l'estate e telefoni senza canone Telecom http://click.libero.it/infostrada --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
CRLF = Carriage??? return, line feed, in pratica e' l'a capo. Forse percio' e' solo un problema di copia-incolla assieme a qualche strana codifica... Copia la macro in un editor di testo puro (notepad in Win, gedit in Gnome,...) e se vedi dei simboli strani alla fine della riga uccidili. Poi copia e incolla nell'editor di macro di OOo. Il problema di compilazione dovrebbe andarsene. Ciao, Michele
