[Résolu][Writer] Modifier l'aspect d'une section

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur : Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
LienRag
Fraîchement OOthentifié
Messages : 5
Inscription : 07 mai 2018 08:36

[Résolu][Writer] Modifier l'aspect d'une section

Message par LienRag »

Bonjour,
J'ai réalisé une macro pour insérer une section (enregistrement).

Code : Tout sélectionner

sub ajoute_section
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
nom_section=inputbox("Saisir le nom de la section :")
nom_section="correction " + nom_section
rem ----------------------------------------------------------------------
dim args1(6) as new com.sun.star.beans.PropertyValue
args1(0).Name = "RegionName"
args1(0).Value = nom_section
args1(1).Name = "RegionCondition"
args1(1).Value = ""
args1(2).Name = "RegionHidden"
args1(2).Value = false
args1(3).Name = "RegionProtect"
args1(3).Value = false
args1(4).Name = "LinkName"
args1(4).Value = ""
args1(5).Name = "FilterName"
args1(5).Value = ""
args1(6).Name = "SubRegion"
args1(6).Value = ""
dispatcher.executeDispatch(document, ".uno:InsertSection", "", 0, args1())
end sub
L'enregistrement n'a pas pris en compte les paramétrages de la macro (colonne, fond, etc). Je ne trouve pas de documentation pour réaliser ces modifications par code. J'ai regardé du côté des API mais je ne sais simplement pas quoi chercher !
Je cherche donc un bout de code ou de documentation afin de modifier les paramètres d'une section par programmation.
Merci
Frédéric
Dernière modification par micmac le 22 juin 2021 18:16, modifié 1 fois.
Raison : balisage dans le premier message
LibreOffice 6.4.5.2 LinuxMint20
Avatar de l’utilisateur
Dude
IdOOle de la suite
IdOOle de la suite
Messages : 25175
Inscription : 03 mars 2006 07:45
Localisation : 127.0.0.1

Re: [Writer] Modifier l'aspect d'une section

Message par Dude »

Salut,

Il faut faire appel au service com.sun.star.text.TextSection.
Fais une recherche, il y a des exemples.
Si tu ne comprends pas, joins un document et accompagne le par des copies écran des effets de départ et escompté.
LienRag
Fraîchement OOthentifié
Messages : 5
Inscription : 07 mai 2018 08:36

Re: [Writer] Modifier l'aspect d'une section

Message par LienRag »

Merci,
Je vais rechercher de suite.
A+
LibreOffice 6.4.5.2 LinuxMint20
LienRag
Fraîchement OOthentifié
Messages : 5
Inscription : 07 mai 2018 08:36

[Résolu] Re: [Writer] Modifier l'aspect d'une section

Message par LienRag »

J'ai simplement utilisé ce code :

Code : Tout sélectionner

 lesSections = ThisComponent.TextSections
 LesSections.getbyname(nom_section).BackColor=&HEEEEEE
la variable nom_section contient le nom de la section dont il faut modifier le fond.
Merci
LibreOffice 6.4.5.2 LinuxMint20