[Résolu][Writer] Modifier la couleur de la police d'un style

[Charrière]

Bonjour,
J'ai créé un style de caractère "Trou" que j'applique sur quelques mots dans un texte.
Si la couleur de la police est blanche j'obtiens un texte à trou et si la couleur de la police est noire j'obtiens le corrigé; au final j'ai le document à remplir et le corrigé dans le même fichier.
Je voudrais créer un bouton pour faire le changement de couleur.
J'ai essayé d'enregistrer une macro, mais quand je l'applique elle ne fait qu'ouvrir la boîte de dialogue: il reste encore à choisir la couleur.
Comment réaliser cette macro, si cela est possible ?
Merci par avance
PC

[Piaf]

Bonjour
A tester

Code : Tout sélectionner

Sub Main
Dim oDoc as Object, lesStylesChar as Object, StyleChar as Object
	oDoc = thisComponent
	lesStylesChar = oDoc.StyleFamilies.getByName("CharacterStyles")
	StyleChar = lesStylesChar.getByName("Trou")
	With StyleChar
		If .CharColor = 16777215 Then
			.CharColor = -1
		ElseIf .CharColor = -1 Then
			.CharColor = 16777215
		End If	
	End With
End Sub

A+

[Dude]

Salut,

Inscrit depuis 2007 et toujours pas habitué à la recherche :
https://forum.openoffice.org/fr/forum/v ... yle+police
Et il suffit d'utiliser XRay pour connaître la liste des propriétés disponibles.

[Charrière]

Merci beaucoup Piaf : la macro fonctionne!