Partager via

Objet Signature (Office)

  • Article

Représente une signature numérique liée à un document. Les objets Signature sont contenus dans la collection SignatureSet de l’objet Document .

Remarques

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 . 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 
 
 On Error GoTo Error_Handler 
 
 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 does not, then 
 'an error is returned. 
 Set sig = ActiveDocument.Signatures.Add 
 
 'Test several properties before commiting 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 
 
 'Commit all signatures in the SignatureSet collection to the disk. 
 ActiveDocument.Signatures.Commit 
 
 Exit Function 
Error_Handler: 
 AddSignature = False 
 MsgBox "Action canceled." 
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.