REM ***** BASIC ***** Sub Main End Sub Sub SwitchProf pFamilies = ThisComponent.StyleFamilies.getByName("ParagraphStyles") pStyle = pFamilies.getByName("Prof") cFamilies = ThisComponent.StyleFamilies.getByName("CharacterStyles") cStyle = cFamilies.getByName("Prof") If pStyle.CharHidden = True Then pStyle.CharHidden = 0 cStyle.CharHidden = 0 Else pStyle.CharHidden = 1 cStyle.CharHidden = 1 End If End Sub Sub SwitchEleve pFamilies = ThisComponent.StyleFamilies.getByName("ParagraphStyles") pStyle = pFamilies.getByName("txt à trous élève") If pStyle.CharHidden = True Then pStyle.CharHidden = 0 Else pStyle.CharHidden = 1 End If End Sub