Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Excel Adobe Booksmark/ Lesezeichen setzen
24.05.2017 09:21:40 Christian Meyer
NotSolved
09.06.2017 11:41:49 Gast76229
NotSolved
09.06.2017 11:41:49 Gast981
NotSolved

Ansicht des Beitrags:
Von:
Christian Meyer
Datum:
24.05.2017 09:21:40
Views:
1138
Rating: Antwort:
  Ja
Thema:
VBA - Excel Adobe Booksmark/ Lesezeichen setzen

Noch leider keine Antowrt bekomme :(..

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.

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
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!

 

 


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot VBA - Excel Adobe Booksmark/ Lesezeichen setzen
24.05.2017 09:21:40 Christian Meyer
NotSolved
09.06.2017 11:41:49 Gast76229
NotSolved
09.06.2017 11:41:49 Gast981
NotSolved