Partager via

Objet SignatureSet (Office)

  • Article

Collection d’objets Signature qui correspondent à la signature numérique attachée à un document.

Remarques

Utilisez la propriété Signatures de l'objet Document pour renvoyer une collection SignatureSet ; par exemple :

Set sigs = ActiveDocument.Signatures

Vous pouvez ajouter un objet Signature à une collection SignatureSet à l’aide de la méthode Add , et vous pouvez retourner un membre existant à l’aide de la méthode Item .

La méthode AddSignatureLine ajoute également un objet Signature à la collection. Consultez également la propriété Subset, qui joue le rôle de filtre et permet d'afficher certains objets Signature dans la collection.

Pour supprimer un objet Signature d'une collection SignatureSet, utilisez la méthode Delete de l'objet Signature.

Exemple

Cet exemple montre comment inviter l’utilisateur à sélectionner une signature numérique avec laquelle signer le document actif dans Microsoft Word. Pour utiliser cet exemple, ouvrez un document dans Word et transmettez à cette fonction le nom d’un émetteur de certificat et le nom d’un signataire de certificat correspondant aux champs Émis par et Délivré à d’un certificat numérique dans la boîte de dialogue Certificats numériques. Cet exemple montre comment vérifier que la signature numérique que l’utilisateur sélectionne répond à certains critères, comme une date d’expiration non dépassée, avant que la nouvelle signature soit appliquée au lecteur.

Function AddSignature(ByVal strIssuer As String, _ 
 strSigner As String) As Boolean 
 
 Dim sig As Signature 
 
 'Display the dialog box that lets the 
 'user select a digital signature. 
 'If the user selects a signature, then 
 'it is added to the Signatures 
 'collection. If the user doesn't, then 
 'an error is returned. 
 Set sig = ActiveDocument.Signatures.Add 
 
 'Test several properties before committing the Signature object to disk. 
 If sig.Issuer = strIssuer And _ 
 sig.Signer = strSigner And _ 
 sig.IsCertificateExpired = False And _ 
 sig.IsCertificateRevoked = False And _ 
 sig.IsValid = True Then 
 
 MsgBox "Signed" 
 AddSignature = True 
 'Otherwise, remove the Signature object from the SignatureSet collection. 
 Else 
 sig.Delete 
 MsgBox "Not signed" 
 AddSignature = False 
 End If 
 
End Function

Voir aussi

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.