Office VBA教程:SignatureSet集合

   
SignatureSet
Signature

对应于附加到文档的数字签名的 Signature对象的集合。

使用 SignatureSet集合

使用 Document对象的 Signatures属性返回 SignatureSet集合,例如:


Set sigs = ActiveDocument.Signatures

注释   对文档 SignatureSet集合的更改并不延续,除非调用 Commit方法。

可以使用 Add方法向 SignatureSet集合添加 Signature对象,并使用 Item方法返回已有成员。要从 SignatureSet集合中删除一个 Signature对象,请使用 Signature对象的 Delete方法。

本示例提示用户选择 Microsoft Word 中活动文档的数字签名。要使用本示例,请在 Word 中打开文档,并向该函数传递与“数码证书”对话框中数码证书的“颁发者”和“颁发给”字段相符的证书颁发者名字和证书签署者名字。该函数在将新签名提交到磁盘之前将进行测试以确保用户所选择的数字签名满足指定条件,例如没有过期。


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 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
    'Commit all signatures in the SignatureSet collection to the disk.
    ActiveDocument.Signatures.Commit
    Exit Function
Error_Handler:
    AddSignature = False
    MsgBox "Action cancelled."
End Function

上页:Office VBA教程:Signature对象 下页:Office VBA教程:WebPageFont对象

Office VBA教程:SignatureSet集合

Office VBA教程:WebPageFont对象 Office VBA教程:WebPageFonts集合对象
Office VBA教程:New对象 Office VBA教程:ActionControl属性
Office VBA教程:ActiveMenuBar属性 Office VBA教程:AdaptiveMenu属性
Office VBA教程:AdaptiveMenus属性 Office VBA教程:AllowMultiSelect属性
Office VBA教程:Animation属性 Office VBA教程:Application属性
Office VBA教程:AssistWithAlerts属性 Office VBA教程:AssistWithHelp属性
Office VBA教程:AssistWithWizards属性 Office VBA教程:AttachCertificate属性
Office VBA教程:BalloonError属性 Office VBA教程:BalloonType属性
Office VBA教程:BeginGroup属性 Office VBA教程:BuiltIn属性
Office VBA教程:BuiltInFace属性 Office VBA教程:Button属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号