Office: (Office 2003) Seitenanzahl aus PDF ermitteln

Helfe beim Thema Seitenanzahl aus PDF ermitteln in Microsoft Access Hilfe um das Problem gemeinsam zu lösen; Hallo, wie kann ich die Seitenanzahl eines PDF per VBA ermitteln? Vielen Dank, Uwe 254515 Dieses Thema im Forum "Microsoft Access Hilfe" wurde erstellt von User, 14. August 2009.

Seite 1 von 3

USER

User

Seitenanzahl aus PDF ermitteln

Hallo,

wie kann ich die Seitenanzahl eines PDF per VBA ermitteln?

Vielen Dank, Uwe

:)

User, 14. August 2009

#1
J_EILERS

J_Eilers

Moin,

keine Ahnung woher ich das habe, aber es funktioniert *Smilie

Code:

Function PDFCounter(strFile As String) As Long
Dim buf As String
Dim i As Integer
Dim fso As Object
Dim pdf As Object
Dim pos As Integer
Dim p2 As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set pdf = fspenTextFile(strFile)

Do While Not pdf.AtEndOfStream
buf = pdf.ReadLine
pos = InStr(1, buf, "/Count")
If pos > 0 Then
buf = Mid(buf, pos + 7)
p2 = InStr(1, buf, Chr(13))
If p2 0 Then
buf = Left(buf, p2 - 1)
End If
i = CLng(Left(buf, InStr(1, buf, "/") - 1))
Exit Do
End If
Loop
PDFCounter = i
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

J_Eilers, 16. August 2009

#2
USER

User

Hi 'Bruce' ;-)

da ich auch an einer Lösung interessiert bin, habe ich den Code bei mir mit dem angehängten PDF ausprobiert.

Ich erhalte einen Fehler in folgender Zeile:

Code:

i = CLng(Left(buf, InStr(1, buf, "/") - 1))
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Laufzeitfehler 5: 'Ungültiger Prozeduraufruf oder ungültiges Argument'
Woran kann das liegen?

Ciao Mike

User, 16. August 2009

#3
J_EILERS

J_Eilers

Seitenanzahl aus PDF ermitteln

Code:

Function PDFCounter(strFile As String) As Long
Dim buf As String
Dim i As Integer
Dim fso As Object
Dim pdf As Object
Dim pos As Integer
Dim p2 As Integer

Set fso = CreateObject("Scripting.FileSystemObject")
Set pdf = fspenTextFile(strFile)

Do While Not pdf.AtEndOfStream
buf = pdf.ReadLine
pos = InStr(1, buf, "/Count")
If pos > 0 Then
buf = Mid(buf, pos + 7)
p2 = InStr(1, buf, Chr(13))
If p2 0 Then
buf = Left(buf, p2 - 1)
End If
If InStr(1, buf, "/") > 0 Then
i = CLng(Left(buf, InStr(1, buf, "/") - 1))
Else
i = CLng(buf)
End If
Exit Do
End If
Loop
PDFCounter = i
End Function
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Ich habe keine Ahnung, wie die PDF's so aufgebaut sind, wenn sie mit unterschiedlichen Programmen erstellt werden, aber vermutlich wird dabei dann mal wieder kein einheitliches Format verwendet *frown.gif*

J_Eilers, 16. August 2009

#4
USER

User

als doch!
Meine Variante bringt das "gleich" falsche Ergebnis bei meiner PDF wie Jan's Version:

Edit
das war der falsche Code, Korrektur folgt!
/Edit

Gruß

LL

User, 16. August 2009

#5
JOSEF P.

Josef P.

Im Prinzip steht die Zahl hinter: "Pages/Count"
z. B.:
Code:

obj
<</Type/Pages/Count 3/Kids[17 0 R 1 0 R 7 0 R]>>
endobj
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

... am besten bei den Problemfällen selbst ansehen. Einfach die PDF-Datei mit einem Texteditor öffnen. (Inhalt ist lesbar.)

Im Beispiel von mischma2 sieht das so aus:
Code:

<< /Type /Pages /Kids [
4 0 R
12 0 R
17 0 R
22 0 R
27 0 R
32 0 R
37 0 R
42 0 R
47 0 R
52 0 R
57 0 R
] /Count 11
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

.. womit aber der Code von Jan funktioniert.

Josef P., 17. August 2009

#6
J_EILERS

J_Eilers

\@Josef Da können leider auch ganz andere Dinge stehen. Im Beispiel zB nur 11, bei meinen getesteten PDF's steht die Zahl ganz am Anfang. Sehr uneinheitlich mal wieder *frown.gif*

J_Eilers, 17. August 2009

#7
JOSEF P.

Josef P.

Seitenanzahl aus PDF ermitteln

Die Zahlt steht ganz alleine ohne "Pages" und "/COUNT"?
So etwas ist mir nicht aufgefallen.

Was ich einheitlich feststellte:
Code:

obj<<xxx>>endobj
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

und statt xxx steht (durchaus unsortiert): "/Pages" und "/Count nn" (nn = Seitenzahl).

Josef P., 17. August 2009

#8
J_EILERS

J_Eilers

Müsste man sich einfach mal mit anderen Druckertreibern anschauen, was die ausgeben, aber dazu fehlt mir leider die Zeit *frown.gif*

J_Eilers, 17. August 2009

#9
USER

User

\@Josef
es ist wie Jan es berreits festgestellt hat!
Ich versuch gerade eine allgemeingültige Funktion zu finden.

Gruß

LL

User, 17. August 2009

#10
JOSEF P.

Josef P.

Jetzt hat mich doch die Neugierde gepackt und ich probierte folgendes aus:
Code:

Function PDFCounter(strFile As String) As Long

Dim buf As String
Dim fso As Object 'Scripting.FileSystemObject
Dim pdf As Object 'Scripting.TextStream

Dim posA As Long
Dim posE As Long
Dim bufLen As Long
Dim temp As String, temp2 As String
Dim posP As Long

Dim pages As Long

Set fso = CreateObject("Scripting.FileSystemObject")
Set pdf = fspenTextFile(strFile)

Do While pages = 0 And (Not pdf.AtEndOfStream)
temp = pdf.ReadLine

If Left(temp, 3) = "obj" Or InStr(1, temp, " obj") > 0 Then
' Achtung es können mehrere "obj" vorkommen!
buf = temp
ElseIf Len(buf) > 0 Then
buf = buf & temp
End If

If Len(buf) > 0 Then

If InStr(1, temp, "endobj") > 0 Then

'Zeilenumbrüche entfernen
buf = Replace(buf, vbCr, vbNullString)
buf = Replace(buf, vbLf, vbNullString)

'Zeichenlänge für do-loop-Prüfung
bufLen = Len(buf)

posE = 1
Do

'Start finden:
posA = InStr(posE, buf, "obj
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P., 17. August 2009

#11
USER

User

und ich hab das: *Smilie

Code:

Do While Not pdf.AtEndOfStream
j = j + 1
buf = pdf.ReadLine
If j = 1 Then version = Left(buf, 8)
pos = InStr(1, buf, "/Count")
If pos > 0 Then
If InStr(1, buf, "obj
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

User, 17. August 2009

#12
JOSEF P.

Josef P.

Seitenanzahl aus PDF ermitteln

\@Louisleon: und dein Code funktioniert? *wink.gif*
"obj<</Count" kommt nämlich in einigen PDF-Dateien von mir in dieser Form nicht vor. (z. B. wenn ich eine PDF-Datei aus einem Bericht über die Access20007-Funktion erstellt sieht das so aus:
Code:

%PDF-1.5
%µµµµ
...
2 0 obj
<</Type/Pages/Count 3/Kids[ 3 0 R 7 0 R 9 0 R] >>
endobj
...
Klicke in dieses Feld, um es in vollständiger Größe anzuzeigen.

Josef P., 17. August 2009

#13
USER

User

\@josef
leider auch nicht besser als deiner *wink.gif*
Version 1.5 hatte ich nicht getestet, wobei die Version auch nicht unbedingt Sicherheit liefert!
Ich habe hier zwei 1.4 Versionen, die eine funktioniert, die andere nicht!
Die funktionierende wurde mit Adobe PDF Library 5.0.2 erstellt, die nicht funktionierende mit Adobe Distiller 7.0!
Ist ja wirklich toll, was Adobe da liefert! Hat schon mal jemand gegoogelt??

Gruß

LL

Update:
Mit Automation über den Reader sollte es wohl funktionieren!

User, 17. August 2009

#14
JOSEF P.

Josef P.

Ich korrigierte den Code in Beitrag #11 ... das Zählen von Zeichen war einfach zu schwer. *biggrin.gif*

Könntest du eine Datei bereitstellen, bei der der (korrigierte) Code aus #11 kein Ergebnis liefert?

Josef P., 17. August 2009

#15

(Du musst angemeldet oder registriert sein, um eine Antwort erstellen zu können.)

Seite 1 von 3

Thema:

Seitenanzahl aus PDF ermitteln

Die Seite wird geladen...

Seitenanzahl aus PDF ermitteln - Similar Threads - Seitenanzahl PDF ermitteln
geschlossene .xlsm zu .pdf konvertieren
in Microsoft Excel Hilfe
geschlossene .xlsm zu .pdf konvertieren: Hallo VBA´ler Ich brauche wieder einmal euer VBA Wissen. Ich habe eine geöffnete xlsm. Anahnd einer VBA Prozedur wird eine andere geschlossene .xlsm vom Ordner A zu Ordner B verschoben und...
XY-Diagramm-Grafik mit zusätzlichen Daten erweitern
in Microsoft Excel Hilfe
XY-Diagramm-Grafik mit zusätzlichen Daten erweitern: Servus! Im Zuge meiner MA-Arbeit müsste ich bereits ermittelte Daten, welche als PDF vorliegen in Excel durch eigens ermittelte erweitern (Bild1). Da wir zu den eigentlichen Daten keinen Zugang...
Bei speichern von Word als PDF keine Kommentare
in Microsoft Word Hilfe
Bei speichern von Word als PDF keine Kommentare: Liebe Kundige, als Lektorin bearbeite ich Buchmanskripte in Word und speichere die Bearbeitung mit sichtbaren Änderungen und Kommentaren als PDF. In letzter Zeit sind dann aber im PDF die...
drucken / seitenanzahl per vba oder formel
in Microsoft Excel Hilfe
drucken / seitenanzahl per vba oder formel: Hallo Leute, ich soll für eine Abteilung ein einfaches Blatt erstellen worin aufsteigend die Anzahl der Wagen angegeben werden soll. Das heißt Schema bleibt gleich nur die Nummer soll aufsteigend...
Seitenanzahl beim Druck über mehrere Arbeitsblätter
in Microsoft Excel Hilfe
Seitenanzahl beim Druck über mehrere Arbeitsblätter: Hallo Forum, es sollen aus einer Excel-Datei mehrere Arbeitsblätter gedruckt werden, die die fortlaufende Seitenanzahl aller Arbeitsblätter anzeigen. Beispiel: Eine Datei hat 5...
Seitenanzahl über mehrere Files
in Microsoft Excel Hilfe
Seitenanzahl über mehrere Files: Hallo zusammen, würde mich freuen, wenn es jemanden gäbe, der Antwort auf folgende Frage weiß: Ich habe 3 Excel Files mit unterschiedlichen Seitenanzahlen (5 Seiten,3 Seiten und 1 Seite)....
Seitenanzahl in Fußnote soll auf 5. Seite mit 1. beginnen
in Microsoft Word Hilfe
Seitenanzahl in Fußnote soll auf 5. Seite mit 1. beginnen: Hallo zusammen. Ich sitze an einem Dokument und möchte gern auf den ersten 4 Seiten römische Ziffern (I, II, III, ...) haben und ab der 5. Seite soll die Nummerierung normal (1., 2., 3., ...)...

Anmelden oder registrieren

Suche

Diese Seite verwendet Cookies, um Inhalte zu personalisieren, diese deiner Erfahrung anzupassen und dich nach der Registrierung angemeldet zu halten.
Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.

Akzeptieren Weitere Informationen...

Information ausblenden