---

Hallo zusammen,

ich habe letztens ein Makro geschrieben, um bei uns Zeichnungen/Parts in PDF, DXF und STEP zu exportieren auf einem Pfad abhängig von der eingetragenen Projektnummer in Solidworks. (x=swModel.CustomInfo2(Configuration, "Projektnummer"))
Das funktioniert auch wunderbar. Mir kam dabei auch die Frage, ob es ein VBA-Befehl für den Export der PDF gibt, die auczh vorhandenen (ausgelesenen) Dateiinformation (Solidworks) in die PDF als Eigenschaft(ähnlich wie Autor, Erstellungsdatum etc.) schreiben kann  ohne externe Programme zu verwenden. Dadurch hätte man natürlich den Vorteil, dass über die Explorersuche auch nach den Eigenschaften, wie Bauteilname, Lieferant oder Projektnummer gesucht werden könnte.
Ich könnte mir auch vorstellen, dass ich die ausgelesenen Dateiinformationen als Variablen abspeicher und im Nachgang eventuell die Eigenschaften der PDF ergänze?? Ist das überhaupt möglich?

Vielen Dank! 

Euer Selfi 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Selfie,

hier gibt es schon einen Beitrag in dieser Richtung: https://ww3.cad.de/foren/ubb/Forum2/HTML/030290.shtml#000004
und der darin enthaltene Link zu Andreas Beitrag: http://ww3.cad.de/foren/ubb/Forum2/HTML/023258.shtml#000004

HTH
Ralf

------------------

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Selfie,

falls Du das acrobat.tlb zur Verfügung hast,
solltest Du das auch einfach selbst machen können

Einfach die acrobat.tlb über die Verweise ins VBA Makro einbinden
Wie die einzelnen Eigenschaften, heißen, kann ich Dir nicht genau sagen
nehme an, dass es die folgenden sind
Title
Author
Subject
Keywords
Creator
Producer
CreationDate
ModDate
Trapped

Sub test()
  Dim PDFDoc As Acrobat.AcroPDDoc
 
  Set PDFDoc = CreateObject("AcroExch.PDDoc")
 
  PDFDoc.Open (".....pdf") 'Pfad mit Dateinamen
 
  PDFDoc.SetInfo "Author", "Test1"
 
  PDFDoc.Save Acrobat.PDSaveFull, "....pdf" 'Pfad mit Dateinamen

  PDFDoc.Close
End Sub

------------------
Grüße
Heinz

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP