Eine Frage zu VBA per Excel 2010 zur Seitenauslese von PDF-dateien

Option Explicit
Sub PDFCounter()

Dim buf As String, fil As String, i As Integer
Dim FilePath As String, FileMask As String, FileExt As String
Dim Column As Integer, Row As Long
Dim fso, File, pdf, FileName As String, pos As Integer, p2 As Integer

FilePath = "D:\Rechnungen\"  
FileMask = "*-E" 'genau hinsichtlich Groß-/Kleinschreibung  
FileExt = "pdf" 'in Kleinbuchstaben  

Column = 1 'Einträge in Spalte "A" ...  
Row = 3 '... ab Zeile 3  

Set fso = CreateObject("Scripting.FileSystemObject")  

For Each File In fso.GetFolder(FilePath).Files 'alle Dateien des vorgegebenen Ordners durchgehen ...  
    FileName = File.Name
    '.... und nur passende verarbeiten  
    If fso.GetBaseName(FileName) Like FileMask And LCase(fso.GetExtensionName(FileName)) = FileExt Then
        Set pdf = fso.OpenTextFile(File.Path)

        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)
    
                i = CLng(buf)

                Exit Do
            End If
        Loop
            
        Cells(Row, Column) = i 'Seitenzahl eintragen  
        Cells(Row, Column + 1) = FileName 'Dateinamen eintragen  
        Row = Row + 1 'Zeilennummer erhöhen  
    End If
Next
End Sub

Cells(Row, Column + 1) = File.Name 'Dateinamen eintragen

FileMask = "*-E" 'genau hinsichtlich Groß-/Kleinschreibung  
FileExt = "pdf" 'in Kleinbuchstaben  

FileMask = "*-E.pdf" 'genau hinsichtlich Groß-/Kleinschreibung  

If FileName Like FileMask Then

        'Dim Text as Variant, i As Long  
         
         Do Until Pdf.AtEndOfStream
             Text = Split(WorksheetFunction.Clean(Pdf.ReadLine), "/Count ")  
             If UBound(Text) = 1 Then  i = CLng(Split(Text(1))(0)):  Exit Do 
          Loop

If UBound(Text) = 1 Then  i = CLng(Split(Text(1))(0)):  Exit Do

            Do Until Pdf.AtEndOfStream
                Text = Split(WorksheetFunction.Clean(Pdf.ReadLine), "/Count ")  
                If UBound(Text) = 1 Then
                    i = 1
                    Do While IsNumeric(Mid(Text(1), i, 1)): i = i + 1:  Loop
                    i = CLng(Left(Text(1), i - 1)):  Exit Do
                End If
            Loop

Option Explicit
Option Compare Text

Sub PDFCounter()

Dim FilePath As String, FileMask As String, FileExt As String
Dim Column As Integer, Row As Long
Dim fso, rE, File, pdf, FileName As String
Dim Match, Pages As Long

FilePath = "D:\Rechnungen\"  
FileMask = "*-E" 'genau hinsichtlich Groß-/Kleinschreibung  
FileExt = "pdf" 'in Kleinbuchstaben  

Column = 1 'Einträge in Spalte "A" ...  
Row = 3 '... ab Zeile 3  

Set fso = CreateObject("Scripting.FileSystemObject")  

Set rE = CreateObject("VBScript.Regexp")  
rE.Pattern = "/Count (\d*)" 'Sucbegriff = "/Count <Ziffer(n)>"  

For Each File In fso.GetFolder(FilePath).Files 'alle Dateien des vorgegebenen Ordners durchgehen ...  
    FileName = File.Name
    '.... und nur passende verarbeiten  
    If fso.GetBaseName(FileName) Like FileMask And LCase(fso.GetExtensionName(FileName)) = FileExt Then
        Set pdf = fso.OpenTextFile(File.Path) 'Datei öffnen ...  
        Do Until pdf.AtEndOfStream '... und notfalls bis zum Dateiende durchgehen  
            For Each Match In rE.Execute(Pdf.ReadLine) 'Zeile einlesen, durchsuchen und, wenn gefunden ....  
                Pages = CLng(Match.SubMatches(0)) '... Seitenzahl (<Ziffer(n)>) auslesen  
                Cells(Row, Column) = Pages 'Seitenzahl eintragen  
                Cells(Row, Column + 1) = FileName 'Dateinamen eintragen  
                Row = Row + 1 'Zeilennummer für Tabelle erhöhen  
                Exit Do 'Datei muss nicht weiter ausgelesen werden  
            Next
        Loop
        pdf.Close 'der Ordnung halber: Datei schließen  
    End If
Next
End Sub

For Each Match In rE.Execute(Pdf.ReadLine) 'Zeile durchsuchen und wenn gefunden ...  

Pdf.Close

    Set Html = CreateObject("HtmlFile")  
    Set ClipBoard = Html.ParentWindow.ClipboardData

    ClipBoard.SetData "Text", "Text für die Zwischenablage"  

    Set Html = CreateObject("InternetExplorer.Application")   
    Html.Navigate "about:blank"  
   
    Set ClipBoard = Html.Document.ParentWindow.ClipboardData

    ClipBoard.SetData "Text", "Text für die Zwischenablage"  

    If "*-e.pdf" Like "*-E.pdf" Then x = 1  

    If "*-e.pdf" Like "*-E.pdf" Then x = 1