[fr-users] Re: Copier un style de page entre classeurs

Thu, 25 Apr 2013 08:05:27 -0700 

Bonjour Michel


Michel Rudelle wrote
> Depuis la version 4, la possibilité de copier un style d’un document à un
> autre a disparu (un retour est prévu …).
> ...
> Mais pour les styles de page, je n’ai rien trouvé, la copie d’une feuille
> de
> Calc n’emmène pas le style de page avec :-(
> ...
> Avez-vous une solution sans jongler avec les versions ?

Solution provisoire, si cela ne te gêne pas d'utiliser une macro:

1. Coller la macro ci-dessous dans la bibliothèque 
"Mes macros et boîtes de dialogue > Standard"
2. Ouvrir le classeur "cible" (celui dans lequel on veut récupérer
les styles de page).
3. Exécuter la macro ChargerStylePage (elle demande de
sélectionner le document contenant les styles de page
à récupérer).

La fonctionnalité assurée est ici minimum:
- on ne traite que les styles de page
- on charge les styles de page en remplaçant les styles
existants (attention donc...).
-on ne choisit pas parmi les styles de page celui ou ceux
qu'on veut charger (ils le sont tous).
-on ne fait aucun contrôle (le document choisi est-il un 
classeur  par exemple ?).
- etc.

Nota: je n'ai pas le temps (ni l'envie) de packager plus car
cette fonctionnalité est (selon toute vraisemblance) en cours
d'analyse et de refonte par les dev.

C'est juste une "rustine" vite fait pour dépanner donc :)

option explicit

sub ChargerStylePage

dim oDoc as object, oFp as object
dim sChoix as variant
dim sUrl as string

Dim aArgs(1)  As New com.sun.star.beans.PropertyValue
aArgs(0).Name = "OverwriteStyles"
aArgs(0).Value = True
aArgs(1).Name = "LoadPageStyles"
aArgs(1).Value = true

oDoc = thiscomponent

oFp = createUnoService( "com.sun.star.ui.dialogs.FilePicker" )
oFp.initialize(
array(com.sun.star.ui.dialogs.TemplateDescription.FILEOPEN_SIMPLE) )
oFp.setMultiSelectionMode(false)

if oFp.Execute() = com.sun.star.ui.dialogs.ExecutableDialogResults.OK then
    sChoix = oFp.GetFiles
    sUrl= sChoix(0)
        oDoc.stylefamilies.loadStylesFromURL(sURL, aArgs() )
        msgbox "Terminé"
End if


end sub    


Cordialement
Pierre-Yves



--
View this message in context: 
http://nabble.documentfoundation.org/Copier-un-style-de-page-entre-classeurs-tp4052228p4052297.html
Sent from the Users 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/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne 
pourront pas être supprimés

Répondre à