vba - 打开 adobe pdf 并通过添加文本框来编辑页面

Question

我对使用 adobe 进行 vba 编码还很陌生，无法使用任何代码。我首先需要打开位于我的文档中的 pdf(使用 adobe acrobat)，然后通过添加一个文本框/或多个文本框来编辑第 5 页。我想知道这是否可能以及是否有代码可以做到这一点。我有 Adob​​e Acrobat XI Standard，它允许我手动编辑 pdf 并在需要的地方创建文本框。
任何帮助将非常感激。

谢谢

Answer 1

有几种方法可以从 vba/vbs 与 acrobat 进行通信(请参阅 Acrobat SDK/IAC 部分)。但对我来说，最好的方法是使用 Acrobat Form API，它允许更多或更少地直接使用 js 代码。

下面您将找到一个 vbs/vba 示例如何在第一页上添加文本(从零开始:第一页 = 0)。

请在“Acrobat JavaScript API 引用”中查找更多方法和属性，尤其是定义矩形(设置框的位置/数组)。
祝你好运，莱因哈德

Path = "D:\Test.pdf"

Set App = CreateObject("Acroexch.app")
app.show
Set AVDoc = CreateObject("AcroExch.AVDoc")
Set AForm = CreateObject("AFormAut.App") 'from AFormAPI

If AVDoc.Open(Path,"") Then
    '// write some js code on a vbs variable
   js = "f = this.addField(""newField"", ""text"", 0, [250,650,20,600]);" &vblf _
    & "f.value = ""any Text""; " &vblf _
    & "f.flatten"
     '//execute the js code
    AForm.Fields.ExecuteThisJavaScript js
end if

Set AForm = Nothing
Set AVDoc = Nothing
Set APP = Nothing