Re: [fr-users] MAcro

Bonjour à tous,
N'ayant pas eu de réponse à mon dernier mail, je me demande si vous 
l'avez reçu (je suis nouveau sur cette liste...)
Merci d'avance

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, pierre-yves.samyn@laposte.net 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 à users+unsubscribe@fr.libreoffice.org 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