SignatureSet-Objekt (Office)
Eine Auflistung von Signature-Objekten , die der digitalen Signatur entsprechen, die an ein Dokument angefügt ist.
Hinweise
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.