Macros/General/004/fr

Description
Le programme présenté ici a pour objet de montrer comment supprimer les styles personnalisés inutilisés dans un document.

Le programme commence par accéder aux familles de style. Selon le type de document ces dernières peuvent être CharacterStyles, ParagraphStyles, FrameStyles, PageStyles, NumberingStyles, CellStyles, ShapeStyles.

L'exemple recherche ici dans les styles de cellules d'un classeur. On parcourt donc la collection CellStyles. Pour chaque élément, on utilise les méthodes isUserDefined et isInUse afin de tester s'il s'agit d'un style personnalisé utilisé ou non.

Seule particularité : on parcourt la collection "à l'envers" de n vers zéro pour éviter les problèmes (puisqu'on supprime des éléments de la collection parcourue).

Code
En LibreOffice Basic: