Objeto Signature (Office)

  • Artigo

Representa uma assinatura digital anexada a um documento. Objetos de assinatura estão contidos na coleção SignatureSet do objeto Document .

Comentários

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

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.