Le 06/06/2020 à 18:52, Pierre Choffardet a écrit :
Dim monDocument As Object
Dim lesFamilles As Object, uneFamille As Object
Dim nouvStyle As Object
monDocument = ThisComponent
lesFamilles = monDocument.StyleFamilies
uneFamille = lesFamilles.getByName("graphics")
nouvStyle = monDocument.CreateInstance("com.sun.star.style.Style")
uneFamille.insertByName("Non Texte", nouvStyle)
nouvStyle.ParentStyle = "Text" ' hériter d'un style
J'ai un message d'erreur
Erreur d'exécution BASIC.
Une exception s'est produite :
Type: com.sun.star.lang.ServiceNotRegisteredException
Message: unknown service: com.sun.star.style.Style.
si quelqu'un peut me sortir de là
Salut,
Je ne vais pas t'aider beaucoup, je n'ai jamais utilisé que
com.sun.star.style.CharacterStyle ou ParagraphStyle. Difficile de
trouver des docs claires là dessus.
A priori, il me semble que les seuls services du module style
utilisables sont listés ici :
https://www.openoffice.org/api/docs/common/ref/com/sun/star/style/module-ix.html
Il me semble que poour toi ce serait plutôt un style de caractère,
puisque c'est un fils de "non texte"
Cordialement,
--
Jean-Michel COSTE
PS : ton nom m'évoque quelques souvenirs, j'espère ne pas me tromper...
--
Envoyez un mail à users+unsubscr...@fr.libreoffice.org pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy