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, [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
