Compartilhar via


Objeto SignatureSet (Office)

Uma coleção de objetos Signature que correspondem à assinatura digital anexada a um documento.

Comentários

Use a propriedade Signatures do objeto Document para retornar uma coleção SignatureSet; Por exemplo:

Set sigs = ActiveDocument.Signatures

Você pode adicionar um objeto Signature a uma coleção SignatureSet usando o método Add e retornar um membro existente usando o método Item .

O método AddSignatureLine também adiciona um objeto Signature à coleção. Consulte também a propriedade subconjunto, que atua como um filtro para se determinados objetos Signature aparecem na coleção.

Para remover uma assinatura de uma coleção SignatureSet, use o método Delete do objeto Signature.

Exemplo

O exemplo a seguir solicita ao usuário para selecionar uma assinatura digital com a qual assinar o documento ativo no Microsoft Word. Para usar este exemplo, abra um documento no Word e passe para essa função o nome de um emissor de certificado e o nome de um signatário de certificado que correspondam aos campos Emitido por e Emitido para de um certificado digital na caixa de diálogo Certificados digitais. Este exemplo será testado para se verificar se a assinatura digital selecionada pelo usuário atende a determinados critérios, como não ter expirado, antes que a nova assinatura seja confirmada no disco.

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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.