Le samedi 06 juin 2020 à 21:49 +0200, Stéphane Santon a écrit :
> Bonjour,
>
> Le 06/06/2020 à 18:52, Pierre Choffardet a écrit :
> > > nouvStyle =
> > > monDocument.CreateInstance("com.sun.star.style.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à
>
> Et avec
>
> com.sun.star.style.CharacterStyle
> ou
> com.sun.star.style.ParagraphStyle ?
>
Bonjour
Je ne sais si ça peut aider, mais :
Pour transférer des styles d'un document à l'autre par macro, j'utilise
ça :
optionsdoc4 = doc4.StyleFamilies.getStyleLoaderOptions
setPropVal(optionsdoc4, "LoadTextStyles", True)
setPropVal(optionsdoc4, "LoadFrameStyles", True)
setPropVal(optionsdoc4, "LoadPageStyles", True) ' ceci est
inutile (défaut)
setPropVal(optionsdoc4, "LoadNumberingStyles", True)
setPropVal(optionsdoc4, "OverwriteStyles", True)
doc4.StyleFamilies.loadStylesFromURL(doc.URL, optionsdoc4())
avec cette déclaration :
Dim optionsdoc as Variant, optionsdoc4 as Variant
doc est le document source.
doc4 est le document destination.
setPropVal est une sous-procédure qui affecte à chaque élément d'une
structure de données complexe une valeur:
Sub setPropVal(descr As Variant, nomProp As String, valProp As Variant)
Dim p As Object
for each p in descr
if p.Name = nomProp then
p.Value = valProp
Exit Sub
end if
next
' la propriété nomProp n'existe pas !
msgbox("Propriété "+nomProp+" inconnue.")
'err = 423 ' déclencher erreur : Propriété ou méthode
introuvable
End Sub
Peut être se servir de tout ça ?
Cordialement,
O.J.
--
Envoyez un mail à [email protected] pour vous désinscrire
Les archives de la liste sont disponibles à
https://listarchives.libreoffice.org/fr/users/
Privacy Policy: https://www.documentfoundation.org/privacy
