[Résolu][Writer] bouton pour afficher style paragraphe

[Whiteneck]

Bonjour,

Pour fluidifier le travail d'écriture, je cherche à afficher ou masquer certains styles de paragraphes, en fonction d'un nom donné à des boutons "case à cocher".

Ma question fait suite à celle-ci.
J'ai trouvé des pistes ici et là, mais sans aboutir à une solution.

Si quelqu'un peut m'aider.

Cordialement

[zeguedon]

Bonjour,

A tester :

Code : Tout sélectionner

Option Explicit


Sub Main(oevt)
Dim oDoc As Object
Dim oEnum As Object
Dim oTexte As Object
Dim styleName As String
Dim ParaStyleName As String
Dim test As Integer
Dim bState As Integer
bState = oevt.Source.State
styleName = oevt.Source.Model.Name
oDoc = ThisComponent
oEnum = oDoc.Text.createEnumeration
Do While oEnum.hasMoreElements
oTexte = oEnum.nextElement
if oTexte.supportsService("com.sun.star.text.Paragraph") Then
test =  StrComp(oTexte.paraStyleName,styleName,1)
    if test = 0 Then
        if bState = 1 Then
            oTexte.CharHidden = false
        else
            oTexte.CharHidden = true
        end if
    end if
end if
Loop
End Sub

Attention, pour des raison de simplicité, ne fonctionne qu'avec les styles personnalisés. En effets, les styles fournis par défaut avec l'application portent des nom internes différents de ceux afficher dans l'interface graphique.

@+

[Whiteneck]

Merci beaucoup Zeguedon !

Je n'aurai jamais pu faire cela.
Ça fonctionne parfaitement.
Merci pour la pièce jointe.

[zeguedon]

Bonjour,

Je trouve que le titre du sujet ne reflète pas correctement le propos traité. J'opterai plutôt pour : [Résolu][Writer]Afficher/Masquer paragraphe selon son style (59 caractères)

@+