Menu

Macro pour masquer tous les boutons Word

SixSigma - 17 juil. 2017 à 14:55 - Dernière réponse : m@rina 14178 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 19 avril 2018 Dernière intervention
- 19 juil. 2017 à 16:28
Bonjour,

J'aimerai trouver un code qui permette de masquer tous les controles de contenus (controles, d'image, de texte, ou même les boutons) qui n'ont pas été remplis. m@rina a déjà fourni un code qui permet d'afficher ou de masquer les controles de textes qui n'ont pas été remplis, mais j'aimerai l'étendre aux autres contrôles.

Si ce n'est pas possible, auriez-vous un code qui permette de masquer tous les boutons d'un document ? J'aimerai éviter de les masquer un à un..

Merci ;)


Afficher la suite 

5 réponses

Répondre au sujet
0
Utile
1
Bonjour SixSigma,

Dans ton énoncé, tu as oublié de mettre cette phrase :

« Je voulais que le texte d'indication ne disparaisse
que lorsqu'on met le document en format pdf ».

Cordialement
 
Commenter la réponse de nicolas
0
Utile
Si toutefois quelqu'un aurait une piste pour une macro qui masquerai tous les bouttons d'un document word, je serai ravi ^^,
(je voudrai éviter de les apeller 1 par 1)
Commenter la réponse de SixSigma
0
Utile
Après des heures de recherches j'ai réussi à faire quelque chose mais qui ne me convient pas encore :( J'arrive à cacher tous les boutons mais cela masque aussi les boutons types Option Button :( Je veux cacher uniquement les boutons types command button :

'masque tous les boutons du document : ceux-ci napparaitrons donc pas sur le document format pdf
For Each bouton In ActiveDocument.InlineShapes
'S'il s'agit d'un bouton :
If bouton.Type = wdInlineShapeOLEControlObject Then
'Alors on le masque :
bouton.Range.Font.Hidden = True
End If
Next bouton

Auriez vous une autre idée svp ? Vous me sauveriez tellement la vie ^^
Commenter la réponse de SixSigma
m@rina 14178 Messages postés mardi 12 juin 2007Date d'inscriptionContributeurStatut 19 avril 2018 Dernière intervention - 19 juil. 2017 à 16:28
0
Utile
Bonjour

Essaie plutôt ceci pour ta condition :

If bouton.OLEFormat.ClassType = "Forms.CommandButton.1" Then
bouton.Range.Font.Hidden = True
End If

Commenter la réponse de m@rina