Signaturobjekt (Office)
Stellt eine digitale Signatur zu einem Dokument angefügt. Signaturobjekte sind in der SignatureSet-Auflistung des Document-Objekts enthalten.
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. Um eine Signatur aus einer SignatureSet -Auflistung zu entfernen, verwenden Sie die Delete -Methode des Signature -Objekts.
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
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
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.