Office: (Office 2010) Interne Dokumenteneigenschaften aus PDF auslesen

Freddie11 · 24. Januar 2014

Hallo Forum,

möchte aus einem PDF (liegt in einem Ordner auf den ich Zugriff habe)
interne Dokumenteneigenschaften per VBA auslesen.
Mit Dokumenteneigenschaften meine ich die,
welche man bei geöffnetem PDF über Datei>Dokumenteneigenschaften
aus den Feldern Titel, Verfasser, Thema, Stichwörter, etc. lesen kann.

Ich bekomme von Extern PDF's (hunderte, manchmal tausende) um muss diese archivieren.
Dazu übergebe ich dann auch den jeweiligen Index
(diese Informationen stehen in den Dateieigenschaften)
damit man die Datei auch wieder findet.

Im Vorfeld möchte ich mich für meine laienhafte Schilderung meines Problems entschuldigen.

Viele Grüße
Freddie

:)

bst · 26. Januar 2014

Morgen Freddie,

besorge Dir pdfinfo von XpdfReader.

Damit kannst Du auf einer Kommandozeile die PDF Eigenschaften auslesen.

Um das in VBA zu benutzen nimm wscript.shell.

cu, Bernd
--
Code:

Option Explicit

Private Function GetPDFText(ByVal strPath As String) As String
Dim objShell As Object, objExec As Object
Const cstrPDFInfo = "e:\test\pdfinfo.exe " ' ANPASSEN !

Set objShell = CreateObject("WScript.Shell")
Set objExec = objShell.Exec(cstrPDFInfo & strPath)
GetPDFText = objExec.StdOut.ReadAll
Set objExec = Nothing
Set objShell = Nothing
End Function

Sub TestIt()
Dim arInfos, arInfo, i As Long, j As Long

arInfos = Split(GetPDFText("e:\test\sp.pdf"), vbNewLine)
j = 1
For i = 0 To UBound(arInfos)
arInfo = Split(arInfos(i), ":", 2)
If UBound(arInfo) = 1 Then
Cells(j, 1).Value = arInfo(0)
Cells(j, 2).Value = Trim(arInfo(1))
j = j + 1
End If
Next
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Freddie11 · 27. Januar 2014

Hallo Bernd,

super das hat funktioniert.
Hast Du noch eine Idee wie ich das ohne zusätzliche Software hinkriege?
Da ich das im Büro einsetzten muss und dort die Vorgaben sehr restriktiv sind werde ich diese Lösung sehr wahrscheinlich nicht abgesegnet bekommen.
Aber schon mal vielen Dank für diese Idee.

Viele Grüße
Freddie

bst · 27. Januar 2014

Morgen Freddie,

ich kenne keinen Weg ohne zusätzliche Software.

Du könntest vielleicht noch GetDetailsOf probieren, das dürfte M.E. in den meisten Fällen aber nicht ausreichen.

cu, Bernd
--
Code:

Option Explicit

Public Sub Dateieigenschaften()
'von K.Rola
Const STRFOLDER As String = "E:\TEST"
Dim objShell As Object, objFolder As Object
Dim bytIndex As Byte, intColumn As Integer, lngRow As Long
Dim varName
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
Exit Sub
End If
Application.ScreenUpdating = False
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(STRFOLDER)
intColumn = 1
For bytIndex = 0 To 37
Cells(1, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Next
Rows(1).Font.Bold = True
lngRow = 2
For Each varName In objFolder.Items
For bytIndex = 0 To 37
Cells(lngRow, intColumn + bytIndex) = objFolder.GetDetailsOf(varName, bytIndex)
Next
lngRow = lngRow + 1
Next
Columns.AutoFit
Application.ScreenUpdating = True
End Sub
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Office: (Office 2010) Interne Dokumenteneigenschaften aus PDF auslesen

Interne Dokumenteneigenschaften aus PDF auslesen

Interne Dokumenteneigenschaften aus PDF auslesen

Interne Dokumenteneigenschaften aus PDF auslesen

Interne Dokumenteneigenschaften aus PDF auslesen - Similar Threads - Interne Dokumenteneigenschaften PDF

Laufender interner Zinsfuß

Internen Zinsfuss für jede Periode dynamisch berechnen

Ermutigen von Mitarbeitern zur Teilnahme an internen Kampagnen

Problem mit aktivieren/deaktivieren Blattschutz per VBA und dem internen Blattschutz

Teams nur interne Kontakte können angerufen / eingeladen werden

Links auf Abfragen in der gleichen Datenbank – Interne Links aktivieren (Office 365)

XP / Dienste / Interne / Outlook Express