Dim
avdoc, pddoc, app
As
Object
Dim
stFile
As
String
Dim
btitle
As
Boolean
Dim
PDBookmark
As
CAcroPDBookmark
stFile =
"C:\1\Stege.pdf"
Set
app = CreateObject(
"AcroExch.app"
)
Set
avdoc = CreateObject(
"AcroExch.AVDoc"
)
Set
pddoc = CreateObject(
"AcroExch.PDDoc"
)
pddoc.Open stFile
Set
avdoc = pddoc.OpenAVDoc(stFile)
Set
PDBookmark = CreateObject(
"AcroExch.PDBookmark"
)
app.MenuItemExecute (
"NewBookmark"
)
btitle = PDBookmark.GetByTitle(pddoc,
"Unbenannt"
)
btitle = PDBookmark.SetTitle(
"hallo"
)
btitle = pddoc.Save(PDSaveFull, strPdfDoc)
pddoc.Close