1

我正在尝试使用以下代码从 VBA 调用 Acrobat Javascript API 以展平文档中的所有注释：

Sub flattenPDF()

Dim AcroApp As Acrobat.AcroApp
Dim AcroDoc As Acrobat.AcroPDDoc
Dim jso As Object
Dim path As String

path = "C:\Users\userID\Desktop\thisfile.pdf"

Set AcroApp = CreateObject("AcroExch.App")
Set AcroDoc = CreateObject("AcroExch.PDDoc")
AcroDoc.Open path
Set jso = AcroDoc.GetJSObject

jso.flattenPages
AcroDoc.Save PDSaveFull, path
AcroDoc.Close
AcroApp.Exit 

End Sub

代码运行成功，但是当我打开 PDF 时，仍然可以编辑所有注释——展平应该使它们成为只读的，对吧？

编辑：我将第一个参数AcroDoc.Save从“1”更改为“PDSaveFull”，现在如果我运行脚本两次，注释就会变平。为什么他们不第一次变平？

更新：

我修改了脚本以获取页数并将其传递给flattenPages()每个 joelgaraci 的建议，以及将 PDF 路径传递给函数：

Sub flattenPDF(pdfPath As String)

Dim AcroApp As Acrobat.AcroApp
Dim AcroDoc As Acrobat.AcroPDDoc
Dim pageCount As Integer
Dim jso As Object

Set AcroApp = CreateObject("AcroExch.App")
Set AcroDoc = CreateObject("AcroExch.PDDoc")
AcroDoc.Open pdfPath
pageCount = AcroDoc.GetNumPages
Set jso = AcroDoc.GetJSObject
jso.flattenPages 0, pageCount - 1
AcroDoc.Save PDSaveFull, pdfPath
AcroDoc.Close
AcroApp.Exit

End Sub

但这得到了相同的结果：仅在我运行脚本两次后注释才变平。

4

1 回答 1

1

只是想我会添加我的解决方案以防它对某人有帮助...我想将文件夹中的所有 PDF 文件展平，这似乎可以解决问题。

Sub Flatten_Folder()
Dim MyFile As String
Mypath = InputBox("Enter the path to the folder where the PDF files are 
Located **MUST END WITH \**")
MyFile = Dir(Mypath)
Do While MyFile <> ""
If MyFile Like "*.PDF" Or MyFile Like "*.pdf" Then
Fullpath = Mypath & MyFile
Set App = CreateObject("AcroExch.app")
Set avdoc = CreateObject("AcroExch.AVDoc")
Set pdDoc = CreateObject("AcroExch.PDDoc")
Set AForm = CreateObject("AFormAut.App")
pdDoc.Open (Fullpath)
Set avdoc = pdDoc.OpenAVDoc(Fullpath)
   js = "this.flattenPages();"
     '//execute the js code
    AForm.Fields.ExecuteThisJavaScript js

Set pdDoc = avdoc.GetPDDoc
pdDoc.Save PDSaveFull, Fullpath
pdDoc.Close
Set AForm = Nothing
Set avdoc = Nothing
Set App = Nothing
End If
MyFile = Dir
Loop
End Sub

在运行宏时，您会看到一个消息框提示您将文件夹路径粘贴到其中。此外，这种方法似乎可以避免 OP 遇到的问题。

于 2018-06-08T13:12:07.903 回答