Hallo,
ich entwickel zur Zeit einen Katalog, der aus mehreren Pdf-Dateien besteht. Die Dateien zu mergen, habe ich gut hinbekommen. Es scheitert nun leider an den Lesezeichen bzw. Bookmarks. Mein Ziel ist, aus meinen schon vorhandenen .pdf Dateien nochmals eine gesamte Datei zu bekommen. Diese soll dann nach jeder Datei ein Lesezeichen besitzen.. Folgendes habe ich schon probiert, leider ohne Erfolg.
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)
'PDBookmark.SetTitle ("Test Bookmark")
pddoc.Close
Das Programm erstellt mir zwar ein Lesezeichen, jedoch speichert er es nicht ab und das Programm wird unerwartet beendet.
Danke!
|