How to add text to a pdf file using Access VBA??

Question

I'm down on my hands and knees, begging.  I have 300 files that I want to put a variable string at the top of the first page (centered, or at the right hand side).  I am using Acrobat X and Microsoft Access 2010 and I do have the SDK and have spend over 10 hours so far searching it and the internet in general, for help and still am coming up empty handed. 
I can do the looping and passing variables with my eyes closed, but I cannot get the syntax for the actual opening of the pdf and inserting the string. 
I was trying to modify code I found yesterday that is supposed to add an annotation, but I don't want an annotation, I just want a string of text at the top of page 1. For now, all I want is to be successful at doing ONE file.  Can someone please give me a concrete example of the code I need to use?  Like I said, I'm in begging mode
Public Sub AddText()
    Dim pdDoc As Acrobat.AcroPDDoc
    Dim page As Acrobat.AcroPDPage
    Dim annot As Acrobat.AcroPDAnnot
    Dim jso As Object
    Dim strPath As String
    Dim intpoint(1) As Integer
    Dim intpopupRect(3) As Integer
    Dim props As Object
    Set pdDoc = CreateObject("AcroExch.PDDoc")
    pdDoc.Open ("c:\Test\Test.pdf")
    Set page = pdDoc.AcquirePage(0)
    'Set annot = page.AddAnnot(0)
    intpoint(0) = 0
    intpoint(1) = page.GetSize.y
    intpopupRect(0) = 0
    intpopupRect(1) = page.GetSize.y - 100
    intpopupRect(2) = 200
    intpopupRect(3) = page.GetSize.y
    annot.SetColor (vbRed)
    annot.SetContents "JCPC - 22 - 2011050000001"
    pdDoc.Save 1, "c:\Test\Test.pdf"
    pdDoc.Close
    Set pdDoc = Nothing
    MsgBox "Done"
End Sub

Answer 1

You cannot skip arguments, you can either use the function with one
argument (just the required argument), or you have to provide all of them.
Also, it looks like you are trying to specify 20 parameters, even though
the function only takes 19. Try the following:
Call jso.addWaterMarkFromText("Test Text", jso.app.Constants.Align.Center,
jso.Font.Helv, 16, _
    jso.Color.Black, 0, 0, True, True, True, _
    jso.app.Constants.Align.Center, jso.app.Constants.Align.Center, _
    100, 100, False, 1, False, 0, 1)
I just typed this in without running it through the compiler, so there may
be typos in the code, but you should get the idea of how the code is
supposed to look like.
Karl Heinz Kremer
PDF Acrobatics Without a Net
PDF Software Development, Training and More...
[email protected]
http://www.khkonsulting.com
On Fri, Jul 26, 2013 at 1:55 PM, I Love Mustangs