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 à [email protected] 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
