Re: [fr-users] Créer un Style Impress par une macro

Le dimanche 07 juin 2020 à 09:21 +0200, Pierre Choffardet a écrit :
> Bonjour,
>
> Est-ce que ça transfert les styles d'un document Impress ?
>
> Pierre

Je n'en sais rien, mais il suffit d'essayer pour voir.
Cordialement,
O.J.
> Le 07/06/2020 à 07:02, oj a écrit :
> > 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 à users+unsubscribe@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