Re: [fr-discuss] LibreOffice et Template changer 1.2.8 : marche pas :-(

Le 09/08/2015 09:11, Bernard Ribot a écrit :
> Le 09/08/2015 09:03, Bernard Ribot a écrit :
> > Le 08/08/2015 18:09, Ysabeau a écrit :
> > > Le 08/08/2015 17:37, Jean Michel PIERRE a écrit :
> > >
> > > > Bonjour,
> > > > J'ai ces fonctionnalité par
> > > > Fichier > Modèles
> > > > avec Template Changer 1.2.1
> > > > La mise à jour que je viens d'installer 1.2.6 fonctionne aussi.
> > >
> > > Un très grand merci ! Les 1.2.8 et la 1.2.7 ne fonctionnaient pas, 
> > > mais par contre la 1.2.6 est bien reconnue, ouf !
> > >
> > > En revanche, je viens du coup de constater un truc bizarre avec les 
> > > images. Il faut que je vérifie.
> > >
> > > NB : le message d'erreur est "normal" :-), enfin, je veux dire, on 
> > > l'a toujours.
> > Tu sais que les entrées de menu ont changé de... menu ?
> >
> > Bernard
> Info fourni par Pierre-Yves sur un autre fil :
> > notes de version de l'extension wrote
> > > 1.2.8 (2013/07/21)
> > >    - Code updated : apply template outline numbering
> > > 1.2.7 (2013/03/29)
> > >    - Code updated : replace DocumentInfo by DocumentProperties
> > >    - Menu items moved to menu Format
Lorsque je remplace DocumentInfo par DocumentProperties, (voir code 
ci-dessous)
j'ai la boite de dialogue, mais avec un message différent :
Propriété ou méthode non trouvée : Template.


    ' Load (and overwrite) styles from template
    Dim aArgs(1)  As New com.sun.star.beans.PropertyValue
    aArgs(0).Name = "OverwriteStyles"
    aArgs(0).Value = True
    aArgs(1).Name = ""
    aArgs(1).Value = ""
    oDoc.stylefamilies.loadStylesFromURL( oTemplate.URL, aArgs() )

    ' associate current document with the template
    If oTemplate.DocumentProperties.Title = "" Then
        aFile = Split (oTemplate.URL, "/")
        sFileName = aFile(Ubound(aFile))
        If Len(sFileName) > 4 Then
            If Mid (sFileName, Len(sFileName)-3, 1) = "." Then
                sFileName = left(sFilename, len(sFileName ) -4 )
            EndIf
        EndIf
        oDoc.DocumentProperties.Template = ConvertFromURL(sFileName)
    Else
        oDoc.DocumentProperties.Template = oTemplate.DocumentInfo.Title
    EndIf

    oDoc.DocumentProperties.TemplateFileName = oTemplate.URL

    'set UpdateFromTemplate
    oDocSettings = oDoc.createInstance( "com.sun.star.document.Settings" )
    oDocSettings.UpdateFromTemplate = True

    Exit Function

--
Jean-Michel PIERRE


--
Envoyez un mail à discuss+unsubscribe@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