Case à cocher Word

Question

Bonjour,

Je ne sais pas si je suis dans la bonne partie mais voila mon soucis:
Je dois faire un formulaire d'enquete de satisfaction, qui sera soit remplit et ensuite imprimé soit directement imprimé.
Du coup, il faut que toute mes cases à cocher soit sur False à l'ouverture du documennt.
Comment puis-je faire cela ???

Je vous remercie d'avance....

bigfish_le vrai · Answer

Salut,

Le code suivant est à mettre dans ThisDocument

Private Sub Document_Open() 'événement d'ouverture
    Dim MyShape As Object
    'pour chaque objet de la collection InlineShapes de ce document
    For Each MyShape In ThisDocument.InlineShapes
        'si l'objet est de type "case à cocher"
        If MyShape.OLEFormat.ClassType = "Forms.CheckBox.1" Then
            'alors on le décoche
            MyShape.OLEFormat.Object.Value = False
        End If
    Next
End Sub

A+

Case à cocher Word

1 réponse

Votre réponse

Discussions similaires