Bernardini Lido wrote:
[...]
Prova questa se ti soddisfa
Vorrei proporre un'alternativa:
Sub Prova2()
oRange = ThisComponent.CurrentController.Selection
PrimaLinea = 1 + oRange.RangeAddress.StartRow
for i = 0 to oRange.Rows.Count-1
oCell = oRange.getCellByPosition(0,i)
if oCell.type > 0 then
oCell.string = Format(Primalinea+i, "00-") &
oCell.string
end if
next
End Sub
Ai link segnalati da Livio vorrei aggiungere:
http://nathanvi.it/cgi-bin/openoffice/bin/view/Main/LinkOpenOffice#Macro
http://nathanvi.it/cgi-bin/openoffice/bin/view/FAQ/DomandeStarBasic
Ciao,
--
MC
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
