Seitenzahl mehrerer PDF-Dokumente ermitteln?

Helfe beim Thema Seitenzahl mehrerer PDF-Dokumente ermitteln? in Windows 10 Support um eine Lösung zu finden; Ich habe einen Ordner mit mehreren 100 PDF-Dokumenten. Gibt es unter Windows 10 eine Möglichkeit, die Gesamtanzahl von Seiten (also von allen... Dieses Thema im Forum "Windows 10 Support" wurde erstellt von gehm1, 27. Mai 2020.

  1. gehm1
    gehm1 Gast

    Seitenzahl mehrerer PDF-Dokumente ermitteln?


    Ich habe einen Ordner mit mehreren 100 PDF-Dokumenten. Gibt es unter Windows 10 eine Möglichkeit, die Gesamtanzahl von Seiten (also von allen Dokumenten zusammen) zu bestimmen?

    Wenn ja, wie geht das?

    :)
     
  2. Hobi Expert
    Willkommen,

    Diese Schritte solltest du nacheinander ausführen:
  3. Nepumuk
    Nepumuk Windows User
    Registriert seit:
    7. Dezember 2017
    Beiträge:
    679
    Zustimmungen:
    61

    Hallo,

    ich hätte da eine Lösung für Excel:

    Option Explicit
    Public Sub PDF_Info()
    Const FOLDER_PATH = "D:\Eigene Dateien\Eigene eBooks\" 'Ordner in dem sich die PDF's befinden
    Dim strFileName As String
    Dim lngRow As Long
    With Application
    .ScreenUpdating = False
    .EnableEvents = False
    .Calculation = xlCalculationManual
    .DisplayStatusBar = True
    End With
    lngRow = 1
    With Tabelle1
    With .Cells(lngRow, 1).Resize(1, 2)
    .EntireColumn.Clear
    .Value = Array("Dokument", "Seiten")
    .Font.Bold = True
    .HorizontalAlignment = xlCenter
    End With
    strFileName = Dir$(FOLDER_PATH & "*.pdf")
    Do Until strFileName = vbNullString
    Application.StatusBar = strFileName
    lngRow = lngRow + 1
    .Cells(lngRow, 1).Resize(1, 2).Value = Array(strFileName, _
    GetPageCount(FOLDER_PATH & strFileName))
    strFileName = Dir$
    Loop
    .Columns(1).AutoFit
    End With
    With Application
    .ScreenUpdating = True
    .EnableEvents = True
    .Calculation = xlCalculationAutomatic
    .StatusBar = False
    End With
    End Sub
    Private Function GetPageCount(ByVal pvstrFileName As String) As Long
    Dim strText As String
    Dim strLinearized As String, astrCount() As String
    Dim ialngIndex As Long
    Dim objFileSystemObject As Object, objTextFile As Object
    Dim objRegEx As Object, objMatch As Object, objItem As Object
    Dim blnFound As Boolean
    GetPageCount = -1
    Set objFileSystemObject = CreateObject("Scripting.FileSystemObject")
    Set objTextFile = objFileSystemObject.OpenTextFile(pvstrFileName, 1, False, 0)
    Do Until objTextFile.AtEndOfStream
    strText = objTextFile.ReadLine
    strText = Replace(strText, vbLf, vbNullString)
    If CBool(InStr(1, strText, "/Linearized")) Then
    If Len(strText) > 20 Then
    strLinearized = strText
    blnFound = True
    Exit Do
    End If
    End If
    If CBool(InStr(1, strText, "/Count ")) Then
    ReDim Preserve astrCount(ialngIndex)
    astrCount(ialngIndex) = strText
    ialngIndex = ialngIndex + 1
    blnFound = True
    End If
    Loop
    Call objTextFile.Close
    Set objTextFile = Nothing
    Set objFileSystemObject = Nothing
    If blnFound Then
    Set objRegEx = CreateObject("VBScript.RegExp")
    With objRegEx
    .MultiLine = True
    .Global = True
    .IgnoreCase = False
    If strLinearized <> vbNullString Then
    .Pattern = "\/N.?(\d+).?"
    Set objMatch = .Execute(strLinearized)
    If objMatch.Count > 0 Then _
    GetPageCount = CLng(objMatch(0).SubMatches(0))
    Else
    If ialngIndex = 1 Then
    .Pattern = "\/Count.?(\d+)"
    Set objMatch = .Execute(astrCount(0))
    If objMatch.Count = 1 Then
    GetPageCount = CLng(objMatch(0).SubMatches(0))
    Else
    For Each objItem In objMatch
    GetPageCount = WorksheetFunction.Max( _
    GetPageCount, CLng(objItem.SubMatches(0)))
    Next
    End If
    Else
    .Pattern = "\/Count.?(-?\d+)"
    For ialngIndex = 0 To UBound(astrCount)
    Set objMatch = .Execute(astrCount(ialngIndex))
    GetPageCount = WorksheetFunction.Max( _
    GetPageCount, CLng(objMatch(0).SubMatches(0)))
    Next
    End If
    End If
    End With
    Set objMatch = Nothing
    Set objRegEx = Nothing
    End If
    End Function
     
Thema:

Seitenzahl mehrerer PDF-Dokumente ermitteln?

Die Seite wird geladen...

Seitenzahl mehrerer PDF-Dokumente ermitteln? - Ähnliche Themen - Seitenzahl mehrerer PDF

Forum Datum

Seitenzahl auf Briefbogen?

Seitenzahl auf Briefbogen?: In Betriebssystem Windows 10 gibt es die Möglichkeit, in die letzte Zeile eine laufende Seitennummer einzusetzen. Problem: Bevor das möglich ist, muß ich bei allen Seiten die letzte Zeile freimachen. Frage: Lassen sich auch laufende Seitenzahlen ohne freie letzte Seitenzeile einsetzen und wie?...

Windows 10 Support 1. Oktober 2021

Manche Word Querverweise funktionieren nicht mehr im PDF Dokument

Manche Word Querverweise funktionieren nicht mehr im PDF Dokument: Hallo liebe Community, ich schreibe meine Bachelorarbeit und habe Überschriften für meine Abbildungen/Tabellen erstellt. Ich habe über der Referenzen mein Abbildungsverzeichnis und Tabellenverzeichnis erstellt. In Word funktioniert alles einwandfrei, wenn ich aber dann das Dokument in PDF...

Windows 10 Support 21. August 2020

pdf-Dokument download

pdf-Dokument download: Hallo, muß eine Seite erst schließen und dann neu öffnen, bevor ich ein pdf-Dokument downloaden kann. Kann mir jemand sagen woran das liegt? [ATTACH] Weiterlesen...

Windows 10 Support 13. Juli 2019

Drucken von PDF-Dokumenten aus dem edge

Drucken von PDF-Dokumenten aus dem edge: Über den installierten Drucker können keine PDF-Dokumente gedruckt werden. Word-Dokumente gehen ohne Probleme. Weiterlesen...

Windows 10 Support 17. November 2017

PDF Dokument in seiner Dateigröße verkleinern

PDF Dokument in seiner Dateigröße verkleinern: Wo finde ich die Möglichkeit ein Pdf- Dokument in seiner Größe zu ändern? Zum Beispiel um dieses als Mail zu senden. Arbeite mit Win 10/ Classic Shell.

Windows 10 Allgemeines 14. Juli 2016

PDF Dokumente drucken

PDF Dokumente drucken: ich kann keine PDF Dokumente drucken. Bei Drucken wird das Dokument immer im Ordner Dokumente gespeichert. Auch aus dem Ordner kann ich nicht drucken Weiterlesen...

Windows 10 Support 8. Februar 2016

Öffnen von PDF Dokumenten

Öffnen von PDF Dokumenten: Warum kann ich unter Windows 10 meine PDF Dokumente nicht mehr mir dem Adobe Reader öffnen sondern werde gezwungen sie mit Microsoft Edge zu öffnen? Die Bearbeitungsmöglichkeiten in Edge sind sehr eingeschränkt, ich habe z.B. noch nicht einmal eine Möglichkeit gefunden die Ansicht eines...

Windows 10 Support 14. Dezember 2015

PDF-Dokumente

PDF-Dokumente: Guten Abend, alle PDF-Dokumente werden seit gestern automatisch im EDGE-Browser angezeigt. Wie kann ich das deaktivieren. Hab wirklich schon viel nach Lösungen gesucht. Menüleiste läßt sich auch nicht mehr einblenden. Ich bitte um Hilfe und bedanke mich schon einmal im Voraus. Herzliche Grüße hickok

Windows 10 Allgemeines 20. November 2015

Seitenzahl mehrerer PDF-Dokumente ermitteln? [gelöst]

Andere User suchten nach Lösungen mit:

  1. windows seitenanzahl eines pdf ermitteln

    ,
  2. Gesamtseitenzahl mehrerer PDF-Dateien ermitteln

    ,
  3. bestimmung seitenanzahl von dokumenten in windows ordnern

    ,
  4. wie kann ich windows Seitenzahl von bis
  1. Diese Seite verwendet Cookies. Wenn du dich weiterhin auf dieser Seite aufhältst, akzeptierst du unseren Einsatz von Cookies.
    Auf dieser Website werden Cookies für die Zugriffsanalyse und Anzeigenmessung verwendet.
    Information ausblenden