Private Sub CommandButton1_Click()
Dim AcroApp As Acrobat.CAcroApp
Dim theDocument As Acrobat.CAcroPDDoc
Dim bm As Acrobat.AcroPDBookmark
Dim thePath As String
thePath = "C:\Users\Karl Heinz Kremer\Desktop\bookmark.pdf"
Set AcroApp = CreateObject("AcroExch.App")
Set theDocument = CreateObject("AcroExch.PDDoc")
Set bm = CreateObject("AcroExch.PDBookmark")
If bm.GetByTitle(theDocument, "") Then
MsgBox ("Found Bookmark")
If theDocument.Save(PDSaveIncremental, "") = False Then
MsgBox ("Cannot save the modiifed file")
Set AcroApp = Nothing
Set theDocument = Nothing
Set bm = Nothing
Open in new window
Please enter a first name
Please enter a last name
Must be at least 4 characters long.
Join and Comment
From novice to tech pro — start learning today.
Premium members can enroll in this course at no extra cost.
Premium members get this course for $18.75.
Premium members get this course for $62.50.
Premium members get this course for $31.25.
Premium members get this course for $159.20.