Programatic access to PDF Meta Data, including XMP Metadata, using Excel VBA.

@Test Screen Name 

I had trouble finding good documentation on the VBA:JS implimentation.

Here is some of what I found:

• https://opensource.adobe.com/dc-acrobat-sdk-docs/acrobatsdk/
• https://www.mrexcel.com/board/threads/javascript-vba-bridge-js-object-functions-listing.887860/
• http://khkonsulting.com/2010/09/reading-pdf-form-fields-with-vba/

In general, good VBA: JS Object reference documentation is thin at best. Am I missing it somewhere?

Any suggestions on the best VBA: JS Object documentation?  -- Thanks!!

I tried a few things, and ended up with a mash up that got us through. It's not pretty, so YMMV.

• We got an older version of Adobe Acrobat Pro and used a reference to the "Adobe Acrobat 10.0 Type Library" for part of it.
• Based on the very helpful post by @BarlaeDC , I used the LineInput statement to scan the PDF.
  • This does a nice job of reading them in.
  • I then tried using MSXML2 as it is a bit more refined uses DOM -- Critical code components below.

Dim aApp                As Acrobat.AcroApp
Dim AV_Doc              As Acrobat.AcroAVDoc
Dim PD_Doc              As Acrobat.AcroPDDoc
Dim aFlags              As Acrobat.PDDocFlags
Dim a                   As Acrobat.AcroPDAnnot

Dim oXML                As MSXML2.DOMDocument60
Dim XML_NList           As MSXML2.IXMLDOMNodeList

'-- Core Code
    On Error Resume Next
    For Each y In XML_NList
        Set XML_N(0) = y
        sParents = ""
        Do While Not XML_N(0).ParentNode Is Nothing
            sParents = XML_N(0).ParentNode.nodeName & ";" & sParents
            Set XML_N(0) = XML_N(0).ParentNode
        Loop
        With y
            oShtOut.Cells(l, 1) = sParents
            oShtOut.Cells(l, 2) = .Name
            oShtOut.Cells(l, 3) = .nodeName
            oShtOut.Cells(l, 4) = .NodeType
            oShtOut.Cells(l, 5) = .nodeTypeString
            oShtOut.Cells(l, 6) = .NodeValue
            oShtOut.Cells(l, 7) = .tagName
            oShtOut.Cells(l, 😎 = .Text
            oShtOut.Cells(l, 9) = .Value
            oShtOut.Cells(l, 10) = .XML
            oShtOut.Cells(l, 11) = .ChildNodes.Length
        End With
        oShtOut.Rows(l).EntireRow.WordWrap = False
        l = l + 1
    Next
    On Error GoTo 0

• For bulk update of the PDF files, I ended up using a VBA command line call to exiftool with the following structure:

exiftool -xmp-dc:Rights="DC Rights" -xmp-xmprights:Marked="True" -xmp-xmprights:Owner="xmprights:Owner" -xmp-xmprights:UsageTerms="xmprights:UsageTerms" -xmp-xmprights:WebStatement="xmprights:WebStatement" 1.pdf