On peut aussi utiliser une macro.
Voici une de cele qui me servait pour faire le ménage:
----------------------------------------
Sub SupprimerStylesWW()
Dim monDocument As Object
Dim lesFamilles As Object, uneFamille As Object
Dim styleX As Object, liste As String, nomFam As String
Dim f As integer, x As integer, nbSupp as integer
dim aSupp() as string, nbStyles as integer
const BOUTON_OUINON = 4
const BOUTONDEFAUT_NON = 256
const ICONE_QUESTION = 32
const CHOIX_NON = 7
if msgbox("Supprimer tous les styles commençant par WW
?",BOUTON_OUINON+BOUTONDEFAUT_NON+ICONE_QUESTION)= CHOIX_NON then
exit sub
endif
monDocument = ThisComponent
lesFamilles = monDocument.StyleFamilies
for f = 0 to lesFamilles.Count -1 ' chaque famille
nomFam = lesFamilles.ElementNames(f)
if (nomFam="ParagraphStyles" or nomFam="CharacterStyles" or
nomFam="NumberingStyles") then
uneFamille = lesFamilles.getByName(nomFam)
nbStyles = uneFamille.count
for x = 0 to nbStyles -1 ' chaque style de cette famille
styleX = uneFamille(x)
if left(styleX.Name,2)="WW" then
nbSupp=nbSupp+1
redim preserve aSupp(nbSupp+1)
aSupp(nbSupp) = styleX.Name
endif
next x
endif
' suppression des styles WW de cette famille
for x=1 to nbSupp
uneFamille.removeByName(aSupp(x))
next x
msgbox str(nbSupp)+" styles supprimés dans la famille "+ nomFam
nbSupp = 0
redim aSupp(0)
next f
End Sub
--------------------------------
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
