Acrobat AddNewAnnot SetContents 失败

Question

我想用 vba 向 PDF 文件添加新的 FreeText 注释。

Public Sub AddAnnot(Page As Object, Text As String)
Dim Rect As Object, Annot As Object
Set Rect = CreateObject("AcroExch.Rect")
Dim Space As Integer, Height As Integer
Space = 0
Height = 15
With Rect
    .bottom = Space
    .Left = Space
    .Right = Page.GetSize.x - Space
    .Top = Space + Height
End With
Set Annot = Page.AddNewAnnot(0, "FreeText", Rect)
With Annot
    .SetTitle Text
    .SetContents (Text)
    .SetColor RGB(255, 255, 0)
    .SetRect Rect
End With
End Sub

所以这段代码适用于旧版本的 Acrobat，但现在在 Acrobat DC 中，它总是在 .SetContents (Text) 行失败，并出现简单的错误，即方法失败。不管是哪个pdf文件，它总是失败。

我做错了什么？提前致谢

Answer 1

对于拼命寻找解决方案但没有找到解决方案的每个人：在添加注释的整个过程之前，也将文档作为 AVDoc 打开。您不必使用它，只需打开它就可以使用，即使您立即隐藏它也是如此。

Acrobat AddNewAnnot SetContents 失败

Acrobat AddNewAnnot SetContents fails

pdf

excel

acrobat

vba