Il 12/01/2011 20:05, Paolo Mantovani ha scritto:
Come tutti i basici ben sanno:
domani compro magnesio e bicarbonato...
i cicli ad eliminazione si fanno da count-1 a 0 (step -1)
Ecco... lo sapevo che il modo c'era...
Grazie Paolo
Bart
PS
per completezza riporto la routine
sub Svuota_Stil_pag
' elimino tutte le pagine di stile con nome diverso da New_qualcosa
Doc = StarDesktop.CurrentComponent
oStyleFamilies = Doc.StyleFamilies
oStilePag = oStyleFamilies.getByName("PageStyles")
For i = oStilePag.count-1 to 0 step -1
if left(oStilePag.getByIndex(i).Name , 3) <> "New" and _
oStilePag.getByIndex(i).Name <> "Default" then
oStilePag.removebyname(oStilePag.getByIndex(i).Name)
end if
Next i
End sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
