Re: [fr-users] MAcro

Wed, 11 Mar 2015 14:21:26 -0700 

Re,
OK ce que tu proposes marche bien sauf de temps en temps erreur :
"if (oUnElement.model.supportsService("com.sun.star.formula.FormulaProperties"))
then"  dans la procedure PysMasquerFormules et PysAfficherFormules


Autre détail important que je n'avais pas bien précisé j'aimerai que les
formules ne se cachent que dans mon style de paragraphes à remplacer par
des trous ...
Je sais c'est assez complexe mais en fait je tape mes cours de maths
complets et souhaiterait "remplacer des réponses contenant parfois des
formules  par un trou plus grand pour pouvoir écrire au TBI en classe
Merci d'avance du suivi de mes questions.
FS



Le 05/03/2015 18:08, SAUTON Frédéric a écrit :

Bonsoir,
Super pour la macro c'est exactemetn ce que je cherchais.
Vu votre efficacité et vos compétences, je me permets de vous demander autre chose dans le même style : J'aimerai faire"disparaitre" un texte pour faire un texte à trou mais en mettant un "vide" à la place (plus grand d'ailleurs que mon texte d'origine) avec une macro : 
sub macro_cacher
trou=thiscomponent.GetStyleFamilies.GetByName("CharacterStyles").GetByName("Cours à cacher") 
    With trou
        If .charColor=0 Then
            .charColor=&hFFFFFFF
            .charKerning=200
        Else
            .charColor=0
            .charkerning=0
        End If
    End With

end sub
Cela marche bien sauf pour cacher des formules faites avec Dmaths qui elles restent malheureusement ... 


Le 05/03/2015 10:06, [email protected] a écrit :

Bonjour
Je voudrai créer une macro permettant de cacher tel ou tel type de paragraphe de façon automatique
Il n'est pas forcément nécessaire de passer par une macro pour cela. Tu peux insérer les parties de texte à masquer dans des sections (menu Insertion). 
Les sections peuvent être masquées sous condition et la condition peut
être le test d'une variable.

Voir cette page sur l'insertion de variables:
https://wiki.documentfoundation.org/FR/FAQ/Writer/045

Sinon, tu peux fonder une solution par macro sur l'utilisation de
styles de paragraphes. Appliquer un style de paragraphe particulier
au texte à masquer. Puis utiliser une macro pour modifier l'attribut
"masqué" du texte. Par exemple :

sub PysMasquerPara

dim oStyles as object
dim oStyle as object

oStyles = thiscomponent.StyleFamilies.getByName("ParagraphStyles")

if oStyles.hasByName("Masquer") then
    oStyle = oStyles.getByName("Masquer")
    ostyle.charHidden = not(ostyle.charHidden)
else
    msgbox "Style ""Masquer"" non trouvé", 64, "Masquer"
end if

end sub
Si tu réponds, merci de penser à utiliser la fonction "répondre à tous" du logiciel de courrier ou du webmail de façon que la liste reçoive la réponse. 

Cordialement
Pierre-Yves







--
Envoyez un mail à [email protected] pour savoir comment vous 
désinscrire
Les archives de la liste sont disponibles à 
http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne 
pourront pas être supprimés

Répondre à