Question

我已经有一份Excel文档，列出了必须发送给我们客户的每个Word文档。这些文档在发送之前必须经过数字签名，并且我要检查每个文档是否都已签名，这要归功于VBA通过Excel文档。我已经找到了Signature类，并且我能够通过SignatureSet获得Signature系列。但在此之后，我迷失了，由于这部分代码，我只能知道有多少签名存在：

Set sigs = WordDoc.Signatures
MsgBox (sigs.Count)

但我想要的是让每个签字人的姓名知道谁没有签署该文件。我看到其他类如SignatureInfo或SignatureSetup存在，但我无法知道如何使用它们。

我已经尝试过Signature类的ShowDetails方法，但它不是我需要的，因为它会在Word文档中打开一个弹出窗口。

Answer 1

如果某人有一天遇到此问题，我会在此处发布解决方案。

Sub Test()

    Dim AppWord As Word.Application
    Dim Doc As Word.Document
    Dim Info As SignatureInfo

    Set AppWord = New Word.Application
    AppWord.Visible = True

    Set Doc = AppWord.Documents.Open("C:\MonDocument.doc")

    Set Info = Doc.Signatures(1).Details

    MsgBox Info.SignatureText

End Sub

检查Word文档上的数字签名

1 个答案: