Signature オブジェクト (Office)
文書に添付されたデジタル署名を表します。 署名オブジェクトは、Document オブジェクトの SignatureSet コレクションに含まれています。
Signature オブジェクトを SignatureSet コレクションに追加するには、 Add メソッドを使用し、Item メソッドを使用して既存のメンバーを返すことができます。 SignatureSet コレクションから 署名 を削除するには、 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 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
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。