Re: [fr-users] [BASIC] Modifier les options de Writer
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
Le 20/10/2017 à 22:00, Stéphane Santon a écrit :
ça donne donc :
sub ConfigSetting_afficherImages( afficherImages)
'0
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...
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.
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+unsubscr...@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
Re: [fr-users] [BASIC] Modifier les options de Writer
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)
'oor:name="SymbolSet" oor:op="fuse">0
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
Le 20/10/2017 à 21:38, Stéphane Santon a écrit :
Bonjour,
J'ai repéré la modification dans le fichier
C:\Users\utilisateur\AppData\Roaming\LibreOffice\4\user\registrymodifications.xcu
sur la clé
true
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()
'0
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+unsubscr...@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
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é
true
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()
'0
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+unsubscr...@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
Re: [fr-users] [BASIC] Modifier les options de Writer
Bonjour
Le 19/10/2017 à 21:21, Stéphane Santon a écrit :
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()
'oor:name="SymbolSet" oor:op="fuse">0
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+unsubscr...@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
[fr-users] [BASIC] Modifier les options de Writer
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 -- Envoyez un mail à users+unsubscr...@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
