Re: [dev-it] Eliminare Tutti i NamedRanges

[Marco Caresia]

Bart Aimar wrote:

sub Elimina_Tutti_NomiArea
    oDoc = ThisComponent
    oAree=oDoc.NamedRanges'

For i = 0 to oAree.getCount() - 1

            oNomiArea = oAree.ElementNames(n)
            oAree. RemoveByName(oNomiArea)
    next
End Sub

Ho qualche problema con TB, spero non arrivi 3 volte...

Dicevo di provare se con questo è più veloce:

sub Elimina_Tutti_NomiArea
     oDoc = ThisComponent
     oAree=oDoc.NamedRanges'

     oNomiArea() = oAree.ElementNames()
     n = oAree.Count - 1

      For i = 0 to n
             oAree. RemoveByName(oNomiArea(i))
     next

End Sub

--
MC

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]