Re: [fr-users] [BASIC] Modifier les options de Writer

Bonjour,

J'ai repéré la modification dans le fichier
C:\Users\utilisateur\AppData\Roaming\LibreOffice\4\user\registrymodifications.xcu

sur la clé
<item oor:path="/org.openoffice.Office.Writer/Content/Display">
  <prop oor:name="GraphicObject" oor:op="fuse">
    <value>true</value>
  </prop>
</item>

A l'exécution, j'ai une erreur
"Erreur d'exécution BASIC.
Propriété ou méthode non trouvée : SymbolSet."

sur
conf.SymbolSet = 0

Qu'ai-je oublié ?

LibreOffice 5.2.6.2

Merci


Le 20/10/2017 à 11:04, Laurent Godard a écrit :
> > Pour exécuter une macro qui importe environ 200 images, j'aimerais
> > désactiver l'option d'affichage des images dans Writer, au début de la
> > macro, et la réactiver à la fin.
>
> oui c'est possible si c'est une configuation accessinble dans le tree
> des configurations, mais ce demande un peu de 'travail'
> deja identifier le fichier et la propriété dans la conf .xcu de libreoffice
> (par exemple en modifiant ta propriéete et en regardant ensuite quel
> fichier et noeuds ont changé)
>
> ensuite
>
> exemple sur la taille des icones
> sub ConfigSetting_tailleIcones()
>
>     '<item oor:path="/org.openoffice.Office.Common/Misc"><prop
> oor:name="SymbolSet" oor:op="fuse"><value>0</value></prop></item>
>
>     conf = getConfigSetting("/org.openoffice.Office.Common/Misc" ,true)
>     conf.SymbolSet = 0 'petit
>     conf.commitChanges()
>
> end sub
>
>
> function getConfigSetting(target as string, forUpdate as boolean)
> ' retourne le noeud de config demandé
> ' exemple: aSettings = getConfigSetting(
> "/org.openoffice.Office.Common/Path/Current", false)
>
>     dim service as String ' nom du service d'acces à la configuration
>     dim aSettings, aConfigProvider
>     dim aParams(0) As new com.sun.star.beans.PropertyValue
>     dim varEmpty
>
>     if forUpdate then
>         service = "com.sun.star.configuration.ConfigurationUpdateAccess"
>     else
>         service = "com.sun.star.configuration.ConfigurationAccess"
>     endif
>
>     aConfigProvider = createUnoService(
> "com.sun.star.configuration.ConfigurationProvider" )
>     aParams(0).Name = "nodepath"
>     aParams(0).Value = target
>
>     aSettings = aConfigProvider.createInstanceWithArguments(service,
> aParams() )
>
>     getConfigSetting = aSettings
>
> end function
>
> HTH
>
> laurent


--
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/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés