SignatureSet-Objekt (Office)

  • Artikel

Eine Auflistung von Signature-Objekten , die der digitalen Signatur entsprechen, die an ein Dokument angefügt ist.

HinwBemerkungeneise

Verwenden Sie die Signaturen -Eigenschaft des Document -Objekts, um eine SignatureSet -Auflistung zurückzugeben. Beispiel:

Set sigs = ActiveDocument.Signatures

Sie können einer SignatureSet-Auflistung mithilfe der Add-Methode ein Signature-Objekt hinzufügen, und Sie können ein vorhandenes Element mithilfe der Item-Methode zurückgeben.

AddSignatureLine -Methode fügt auch ein Signature -Objekt der Auflistung hinzu. Siehe auch die Teilmenge -Eigenschaft als Filter fungiert für bestimmte Signature -Objekten gibt an, ob in der Auflistung angezeigt.

Um eine Signatur aus einer SignatureSet -Auflistung zu entfernen, verwenden Sie die Delete -Methode des Signature -Objekts.

Beispiel

Im folgenden Beispiel wird der Benutzer aufgefordert, eine digitale Signatur auszuwählen, mit der das aktive Dokument in Microsoft Word signiert wird. Um dieses Beispiel verwenden zu können, müssen Sie ein Dokument in Word öffnen und dieser Funktion den Namen eines Zertifikatsausstellers sowie den Namen eines Zertifikatsunterzeichners übergeben, die den Feldern Ausgestellt von und Ausgestellt für eines digitalen Zertifikats im Dialogfeld Digitale Zertifikate entsprechen. In diesem Beispiel wird überprüft, ob die vom Benutzer ausgewählte digitale Signatur bestimmten Kriterien (z. B. Gültigkeitsdauer) entspricht, bevor die neue Signatur auf den Datenträger geschrieben wird.

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

Siehe auch

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.