Sub GetHelloAnnotation()

 

  Dim wp2 As New InkAnno01

 

  Dim html As String

  Dim SRC As String

  Dim DES As String

  Dim page As Integer

  page = 4

  '追加するページ。（１が１ページ） 

  SRC = "C:\ほげほげ\元の.PDF"

  DES = "C:\ほげほげ\追加した.PDF"

  html = wp2.MarginValue(SRC, DES, page)

  MsgBox html

  

End Sub