[fr-discuss] Re: Débuter avec LibO - chapitre1

Bonjour Jean-Yves


royerjy wrote
> En profiter pour utiliser les styles prédéfinis appropriés qui...

Je pense pouvoir caresser l'hypothèse que Sophie, sinon moi... connaissons
la différence entre styles prédéfinis et styles personnalisés...


royerjy wrote
> Le programme de traduction des styles m'intéresse...

Il ne s'agit pas d'une traduction mais d'un "renommage" de certains styles
personnalisés employés dans le document. 

Simple procédure écrite rapidement pour l'occasion ; la voici :

option explicit

Sub PysRenommeStyles

dim PysFamilles as object
dim i as long, j as long
dim PysTrav as string

PysFamilles = thiscomponent.StyleFamilies

for i = 0 to PysFamilles.count - 1
        for j = 0 to PysFamilles(i).count - 1
                if left(PysFamilles(i)(j).name, 3) = "OOo" then
                        PysTrav = PysFamilles(i)(j).name
                        mid(PysTrav, 1, 3, "LO")
                        PysFamilles(i)(j).setname(PysTrav)
                end if  
        next j
next i
print "fini"
End Sub

Cordialement
Pierre-Yves

--
View this message in context: 
http://nabble.documentfoundation.org/Debuter-avec-LibO-chapitre1-tp3633245p3634615.html
Sent from the Discuss mailing list archive at Nabble.com.

-- 
Envoyez un mail à discuss+help@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/discuss/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés