Bart Aimar ha scritto: > > inizio = Timer > > [istruzioni] > > fine = Timer > > msgbox fine - inizio > > Accidenti... qualcuno l'aveva già segnalato... (Lido o tu non > ricordo...) e mi ero scordato anche della funzione...
L' aveva segnalato Michele Zarri Ti riporto qui sotto il codice che aveva postato La mia idea era questa: (su testata solo una volta perche' non avevo voglia di ridefinire altri ranges o di ri-caricare il file :)) Sub subScrollWithEnumeration() oDoc = thisComponent lStartTick = getSystemTick() ' **** oNamedRanges = oDoc.NamedRanges() oEnum = oNamedRanges().createEnumeration() Do While oEnum.hasMoreElements() oWhatAmI = oEnum.NextElement() MsgBox oWhatAmI.Name oNamedRanges.RemoveByName(oWhatAmI.Name) Loop lEndtTick = getSystemTick() ' **** MsgBox "Total ticks = " & lEndTick - lStartTick ' **** End Sub Ti ho segnalato con degli asterischi le linee da utilizzare se ti vuoi divertire a cronometrare StarBasic Ciao Lido --------------------------------------------------------------------- To unsubscribe, e-mail: [EMAIL PROTECTED] For additional commands, e-mail: [EMAIL PROTECTED]
