Ce que je demande est peut être infaisable ?
Le 11/03/2015 22:20, FS a écrit :
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
