Maybe this will help. A former coworker wrote a small macro where you would import the full pathnames into column A, run the below macro, and it would add the full filepath to the "Keywords" line in the pdf metadata. This was very helpful when trying to trace extracted pdf pages back to its original file.
Sub BrandBreakouts()
Dim PDF As CAcroPDDoc
Dim RawSet As Range
Range("A1").Select
Range(Selection, Selection.End(xlDown)).Select
Set RawSet = Selection
Set PDF = CreateObject("AcroExch.PDDoc")
For Each pth In RawSet
If PDF.Open(pth) = -1 Then
st1 = PDF.SetInfo("Keywords", pth)
st2 = PDF.Save(PDSaveCollectGarbage, pth)
PDF.Close
End If
Next pth
End Sub
I just want to clear the title field, rather than add anything. Thanks again!