Acrobat AddNewAnnot SetContents 失败答案

【问题标题】：Acrobat AddNewAnnot SetContents failsAcrobat AddNewAnnot SetContents 失败
【发布时间】：2017-05-04 17:00:07
【问题描述】：

我想用 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文件，它总是失败。

我做错了什么？提前致谢

【问题讨论】：

如果去掉Text周围的括号会怎样？
我试过了，但没有任何改变。

标签： vba excel pdf acrobat

【解决方案1】：

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

【讨论】：