[BASIC] Modifier les options de Writer

fr-users
#1

Bonjour,

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.

L'enregistrement ne donne que
rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:OptionsTreeDialog", "", 0, Array())

Peut-on modifier les options par macro ?

Merci

#2

Bonjour

Bonjour,

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

#3

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

#4

Ah oui...
j'avais pas vu que c'était le nom du nœud de la propriété...
ça donne donc :

sub ConfigSetting_afficherImages( afficherImages)

     '<item oor:path="/org.openoffice.Office.Common/Misc"><prop oor:name="SymbolSet" oor:op="fuse"><value>0</value></prop></item>
  Dim conf as Variant
     conf = getConfigSetting("/org.openoffice.Office.Writer/Content/Display" ,true) '/org.openoffice.Office.Common/Misc
     conf.GraphicObject = afficherImages 'SymbolSet
     conf.commitChanges()
end sub

Aucune erreur d'exécution mais option non opérationnelle...

Je chercherai encore !

Merci

#5

Bonjour,

Le programme change bien le fichier de conf en Live, mais n'a pas d'effet sur le doc en cours, l'affichage des images est inchangé...

Une commande pour appliquer l'option ?

Merci