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

これに対する解決策を探していましたが、見つからなかった皆さん：Annotを追加する前に、AVDocとして文書を開いてください。あなたはすぐにそれを隠すときでさえ、それを使用する必要はなく、ただ開いて、それは動作します。