Come da oggetto non riesco a risolvere un banale problema.
In un documento Calc devo eliminare tutti gli stili di pagina del
documento che NON cominciano con la stringa New".
Suppongo la cosa possa risolversi all'interno del ciclo di for, ma io
non riesco a farlo.
Il codice qui sotto funziona, ma ho dovuto ricorrere all'orrendo
escamotage del 'goto rifa'
Qualcuno saprebbe come farlo senza 'goto rifa' ?
grazie per le risposte
Bart
Per provare la macro bisogna creare degli stili di pagina e di questi
almeno uno con il prefisso New"
Sub Main
Doc = StarDesktop.CurrentComponent
oStyleFamilies = Doc.StyleFamilies
oStilePag = oStyleFamilies.getByName("PageStyles")
rifa:
For i = 0 to oStilePag.Count -1
if left(oStilePag.getByIndex(i).Name , 3) <> "New" and _
oStilePag.getByIndex(i).Name <> "Default" then
oStilePag.removebyname(oStilePag.getByIndex(i).Name)
goto rifa
end if
Next i
exit sub
