Objet SignatureSet (Office)
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.