Pb Macro

Le
jepac
Bonsoir,

J'ai écris la macro suivante, mais elle ne semble avoir aucun effet, en
effet si la section est masquée le reste de la macro continue à se dérouler.

Pouvez-vous m'aider ?

Jean-Paul

Verification du masquage
ActiveDocument.Unprotect Password:="xxxxx"
If ActiveDocument.Sections(1).Range.Font.Hidden = True Then
MessageMasquage = MsgBox("La section doit-être démasquée pour être
vérifiée", vbOKOnly, "WWWWW")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="xxxxx"
Exit Sub
End If
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Circé
Le #1723223
Bonjour jepac,

Pour que la macro affiche ton message, il faut que toute la section 1
soit en police masquée.

Si la section 1 est seulement en partie masquée, remplace True par
wdUndefined.

Circé
http://faqword.free.fr

Bonsoir,

J'ai écris la macro suivante, mais elle ne semble avoir aucun effet, en
effet si la section est masquée le reste de la macro continue à se dérouler.

Pouvez-vous m'aider ?

Jean-Paul

Verification du masquage
ActiveDocument.Unprotect Password:="xxxxx"
If ActiveDocument.Sections(1).Range.Font.Hidden = True Then
MessageMasquage = MsgBox("La section doit-être démasquée pour être
vérifiée", vbOKOnly, "WWWWW")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="xxxxx"
Exit Sub
End If


jepac
Le #1723222
Bonsoir

Dans le cas présent toute la section a été masquée avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True

Merci
Jean-Paul



Bonjour jepac,

Pour que la macro affiche ton message, il faut que toute la section 1
soit en police masquée.

Si la section 1 est seulement en partie masquée, remplace True par
wdUndefined.

Circé
http://faqword.free.fr

Bonsoir,

J'ai écris la macro suivante, mais elle ne semble avoir aucun effet, en
effet si la section est masquée le reste de la macro continue à se dérouler.

Pouvez-vous m'aider ?

Jean-Paul

Verification du masquage
ActiveDocument.Unprotect Password:="xxxxx"
If ActiveDocument.Sections(1).Range.Font.Hidden = True Then
MessageMasquage = MsgBox("La section doit-être démasquée pour être
vérifiée", vbOKOnly, "WWWWW")
ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True,
Password:="xxxxx"
Exit Sub
End If







Anacoluthe
Le #1723219
Bonjour !

'jepac' nous a écrit ...
Dans le cas présent toute la section a été masquée avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True

If ActiveDocument.Sections(1).Range.Font.Hidden = True Then




Vérifiez que l'index (1) concerne bien la même section et qu'elle
est entièrement masquée car la syntaxe de vos deux ligne
est correcte et concordante. L'erreur semble être ailleurs...

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE



jepac
Le #1723217
Est-ce que les en-têtes sont maquées avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True
car il y a une en-tête page dans la section

Merci
Jean-Paul





Bonjour !

'jepac' nous a écrit ...
Dans le cas présent toute la section a été masquée avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True

If ActiveDocument.Sections(1).Range.Font.Hidden = True Then




Vérifiez que l'index (1) concerne bien la même section et qu'elle
est entièrement masquée car la syntaxe de vos deux ligne
est correcte et concordante. L'erreur semble être ailleurs...

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE








Anacoluthe
Le #1723048
Bonjour !

'jepac' nous a écrit ...
Est-ce que les en-têtes sont maquées avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True
car il y a une en-tête page dans la section


Non, les en-têtes ne sont pas masqués avec cette commande
mais ce n'est pas ça qui changerait le résultat du test
IF ActiveDocument.Sections(1).Range.Font.Hidden = True THEN

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE

jepac
Le #1723046
Alors mystère...


Bonjour !

'jepac' nous a écrit ...
Est-ce que les en-têtes sont maquées avec :
ActiveDocument.Sections(1).Range.Font.Hidden = True
car il y a une en-tête page dans la section


Non, les en-têtes ne sont pas masqués avec cette commande
mais ce n'est pas ça qui changerait le résultat du test
IF ActiveDocument.Sections(1).Range.Font.Hidden = True THEN

Anacoluthe
« Les erreurs sont les portes de la découverte. »
- James JOYCE




Geo
Le #1723044

Alors mystère...


L'option "afficher le texte masqué" est bien cochée ?

--
A+

Publicité
Poster une réponse
Anonyme