Pb Macro

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

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

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

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

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

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

Alors mystère...