The solution does exist. I am using Adobe Acrobat 4 and Visual Basic 6.
Dim PDBookmark As CAcroPDBookmark
Dim AcroApp As CAcroApp
Dim AVYourDoc As CAcroAVDoc
Dim PDYourDoc As CAcroPDDoc
Dim bFileOpen4 As Boolean
Dim btitle As Boolean
'Create the Acrobat Object
Set acroApp = CreateObject("AcroExch.App", ""
'Show the Application
acroApp.Show
'Create Doc objects
Set PDYourDoc = CreateObject("AcroExch.PDDoc", ""
Set AVYourDoc = CreateObject("AcroExch.AVDoc", ""
'code to load your doc doc
bFileOpen4 = AVYourDoc.Open("path to your doc", "Window Title"
Set PDYourDoc = AVYourDoc.GetPDDoc
'Create BookMark Object
Set PDBookmark = CreateObject("AcroExch.PDBookmark", ""
'activate the app
acroApp.Show
'execute the menu item
acroApp.MenuItemExecute ("NewBookmark"
'set bookmark title
btitle = PDBookmark.GetByTitle(PDYourDoc, "Untitled"
btitle = PDBookmark.SetTitle("bookmarktitle"
