英語で読む

次の方法で共有


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 のサポートおよびフィードバックを参照してください。