OVH Cloud OVH Cloud

Macro pour masquer en fonction du style

13 réponses
Avatar
Serge Hipontoise
Bonjour
Je cherche à masque et afficher à volonté les paragraphes d'un texte
correspondant à un style précis. Je cherche donc à savoir si ce style est
déjà masqué ou pas, de manière à pouvoir faire une macro du style :

Sub MasquerSCNotes()

if [déterminer si le style "SC - Note" est masqué ou pas]

With ActiveDocument.Styles("SC - Note").Font
.Hidden = True
End With
else
With ActiveDocument.Styles("SC - Note").Font
.Hidden = False
End With

end if

End Sub

Merci d'avance

Serge

10 réponses

1 2
Avatar
Guy Moncomble
Bonjour à tous,
dans le message bvvduh$nkp$,

| Bonjour
| Je cherche à masque et afficher à volonté les paragraphes d'un texte
| correspondant à un style précis. Je cherche donc à savoir si ce style
| est déjà masqué ou pas, de manière à pouvoir faire une macro du style
| :
|
| Sub MasquerSCNotes()
|
| if [déterminer si le style "SC - Note" est masqué ou pas]
|
| With ActiveDocument.Styles("SC - Note").Font
| .Hidden = True
| End With
| else
| With ActiveDocument.Styles("SC - Note").Font
| .Hidden = False
| End With
|
| end if
|
| End Sub
|
| Merci d'avance
|
| Serge

Il est plus simple d'écrire une bascule, ainsi la même instruction
affiche ou masque selon l'état :
ActiveDocument.Styles("Para 1cm").Font.Hidden ActiveDocument.Styles("Para 1cm").Font.Hidden = False
--
A+

G.M. MVP Word
Avatar
Serge Hipontoise
Il est plus simple d'écrire une bascule, ainsi la même instruction
affiche ou masque selon l'état :
ActiveDocument.Styles("Para 1cm").Font.Hidden > ActiveDocument.Styles("Para 1cm").Font.Hidden = False


Merci, mais malheureusement, je ne sais pas comment on écrit une "bascule"
La première ligne du code ci-dessus produit une erreur (param manquant)

Serge

Avatar
Circé
Bonsoir Serge,

Suffit de se demander quel est le contraire de False !!! ;-)))
Ne serait-ce pas True ?... :-)
Il est coquin ce Guy...

Circé

Serge Hipontoise wrote:
||| Il est plus simple d'écrire une bascule, ainsi la même instruction
||| affiche ou masque selon l'état :
||| ActiveDocument.Styles("Para 1cm").Font.Hidden ||| ActiveDocument.Styles("Para 1cm").Font.Hidden = False
||
|| Merci, mais malheureusement, je ne sais pas comment on écrit une
|| "bascule" La première ligne du code ci-dessus produit une erreur
|| (param manquant)
||
|| Serge
Avatar
AB
Heu...Si je peux me permettre...Tu as remplacé "Para 1cm" par ton style à
toi, bien entendu ?
AB

Serge Hipontoise wrote:
||| Il est plus simple d'écrire une bascule, ainsi la même instruction
||| affiche ou masque selon l'état :
||| ActiveDocument.Styles("Para 1cm").Font.Hidden ||| ActiveDocument.Styles("Para 1cm").Font.Hidden = False
||
|| Merci, mais malheureusement, je ne sais pas comment on écrit une
|| "bascule" La première ligne du code ci-dessus produit une erreur
|| (param manquant)
||
|| Serge
Avatar
Anacoluthe
Bonjour !

'Circé' nous a écrit ...
Suffit de se demander quel est le contraire de False !!! ;-)))
Ne serait-ce pas True ?... :-)
Il est coquin ce Guy...


Très coquin le Guy ! Il nous fait la bascule booléenne:
Toto = Toto = False
- si Toto est True, Toto = False est False
alors Toto est mis à False
- si Toto est False, Toto = False est True
alors Toto est mis à True
dans les deux cas Toto est inversé !
(Guy doit être très fâché avec NOT !!!)

Notez l'usage de deux '=' le premier d'affectation,
le deuxième de test égal. Il s'agit d'une ambiguïté
bien connue du Basic !

Si vous écrivez
Toto = Toto = True
Toto reste True s'il est True et False dans tous les autres cas

Logique, non ?

Anacoluthe
« Le vrai se conclut souvent du faux. »
- Blaise PASCAL

Avatar
JièL Goubert
Bonjoir(c) Anacoluthe

Le 06/02/2004 19:48 vous nous disiez ceci :
Si vous écrivez
Toto = Toto = True
Toto reste True s'il est True et False dans tous les autres cas


bon, 2 aspirines et au lit

Logique, non ?


au fait, je voulais te poser une question : ça fait longtemps que t'es
fou ? ;-))))))))))

--
JièL Fou mais pas furieux

Avatar
Guy Moncomble
Bonjour à tous,
dans le message #,

| (Guy doit être très fâché avec NOT !!!)

Non, mais j'aime bien les bascules qui obligent à réfléchir à ce qui se
passe. Cela dit je reconnait que le terme bascule est ambigu, même s'il
est courant en électronique.
--
A+

G.M. MVP Word
Avatar
Serge Hipontoise
Heu...Si je peux me permettre...Tu as remplacé "Para 1cm" par ton style à
toi, bien entendu ?


Bien entendu !
Et j'avais même -de moi-même ! - rajouté le "True" manquant (si si Circé, je
l'avais fait !)
ce qui au total me donnait :

Sub MasquerSCNotes()
ActiveDocument.Styles("SC - Note").Font.Hidden = True
ActiveDocument.Styles("SC - Note").Font.Hidden = False
End Sub

Mais ça ne marche pas ! En fant ça ne marche que si les notes sont masquées,
ça les réaffiche, mais après, impossible de les remasquer à nouveau.

D'où je suis revenu vers vous....








Serge Hipontoise wrote:
||| Il est plus simple d'écrire une bascule, ainsi la même instruction
||| affiche ou masque selon l'état :
||| ActiveDocument.Styles("Para 1cm").Font.Hidden > ||| ActiveDocument.Styles("Para 1cm").Font.Hidden = False
||
|| Merci, mais malheureusement, je ne sais pas comment on écrit une
|| "bascule" La première ligne du code ci-dessus produit une erreur
|| (param manquant)
||
|| Serge




Avatar
Anacoluthe
Bonjour !

'JièL Goubert' nous a écrit ...
Bonjoir(c) Anacoluthe
au fait, je voulais te poser une question :
ça fait longtemps que t'es fou ? ;-))))))))))


Fou moi ? Un temps fou je présume :-)
Un fou ne peut pas croire qu'il est fou.
Moi je suis fou. D'ailleurs c'est JièL qui me l'a dit.
Alors si je crois que je suis fou, je ne peux pas être fou.
Comment puis-je croire que je suis fou si je ne le suis pas ?
Réponse : parce que je suis fou bien-sûr
Ouf ! c'est bien ce que je croyais : je suis ouf !
Mais alors ......

A+ <§ :-)
Anacoluthe
« Il suffit, pour qu'on soit fou
Qu'elle ait un ruban au cou »
- Victor HUGO

Avatar
JièL Goubert
Bonjoir(c) Anacoluthe

MDR !!!

Le 08/02/2004 11:13 vous nous disiez ceci :
Bonjour !
Mais alors ......


ben dis donc, ça s'arrange pas ;-))))))

--
JièL Pas sur de ne pas être atteind aussi finalement

1 2