Question

我遇到了一个问题 - 我需要在一些.pdf文件中添加一个自定义标记（注释类型）。我可以通过针对Acrobat X Pro的Actions来实现，但我的客户没有该许可证，他们仍然需要这样做。文件列表存储在Excel电子表格中，所以理想情况下我正在寻找VBA解决方案。我想出了以下代码：

Option Explicit
Sub code1()
Dim app As Acrobat.AcroApp
Dim pdDoc As Acrobat.CAcroPDDoc
Dim page As Acrobat.CAcroPDPage
Dim recter(3) As Integer 'Array defining the rectangle of the stamp - in real code wil be calculated, simplified for ease of reading

Dim jso As Object
Dim annot As Object
Dim props As Object
Set pdDoc = Nothing
Set app = CreateObject("AcroExch.App")
Set pdDoc = CreateObject("AcroExch.PDDoc")

recter(0) = 100
recter(1) = 100
recter(2) = 350
recter(3) = 350

pdDoc.Open ("C:\Users\maxim_s\Desktop\Code_1\test1.pdf")

Set jso = pdDoc.GetJSObject

If Not jso Is Nothing Then

Set page = pdDoc.AcquirePage(0)

Set annot = jso.AddAnnot

Set props = annot.getprops
    props.page = 0
    props.Type = "Stamp"
    props.AP = "#eIXuM60ZXCv0sI-vxFqvlD" 'this line throws an error. The string is correct name of the stamp I want to add
    props.rect = recter
annot.setProps props

If pdDoc.Save(PDSaveFull, "C:\Users\maxim_s\Desktop\Code_1\test123.pdf") = False Then
    MsgBox "fail"
    pdDoc.Close
Else
    MsgBox "success"
    pdDoc.Close
End If
End If
End Sub

问题在于setprops和getprops过程 - 似乎在创建注释时（jso.AddAnnot）它没有AP属性，这是我要添加的邮票的名称。如果我先设置属性Type= "Stamp"，然后尝试指定AP，则结果是添加了一个默认戳记，并将AP重命名为我的自定义邮票＆＃39; AP。另请注意，如果我启动acrobat并使用下面的代码，则会添加正确的标记：

this.addAnnot({page:0,type:"Stamp",rect:[100,100,350,350],AP:"#eIXuM60ZXCv0sI-vxFqvlD"})

如果有办法在PDDoc对象内部从VBA执行此Javascript，那将解决问题，但到目前为止我都失败了。

Answer 1

您可以使用AForm Api中的“ExecuteThisJavaScript”。简短的例子：

设置AForm = CreateObject（“AFormAut.App”）

AForm.Fields.ExecuteThisJavaScript“var x = this.numPages; app.alert（x）;”

它的优点是您不需要将js示例转换为jso代码。如果您搜索ExecuteThisJavaScript，您将获得更多更长的示例。

祝你好运，莱因哈德

Answer 2

在...

props.Type = "Stamp"

类型应为小写。但是如果纯JavaScript正在从控制台运行，您可能会考虑使用jso执行字符串。

从VBA向文档添加自定义pdf戳记

2 个答案: