Auf Englisch lesen

Freigeben über


Signaturobjekt (Office)

Stellt eine digitale Signatur zu einem Dokument angefügt. Signaturobjekte sind in der SignatureSet-Auflistung des Document-Objekts enthalten.

Hinweise

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.

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 
 
 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

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.