PDF -Dateien umbennen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Dann setze einen Verweis auf "Adobe Acrobat X.0 Type Library" (das X steht für die Acrobat-Version). Dann kannst Du folgenden Code probieren. Allerdings musst Du mit den Zeilenzahlen experimentieren, da "sinnlos" ausgelesen wird (Beim Namen z.B. wird das "P" in eine Zeile geschrieben und "eter" in eine neue Zeile. Bei der Rechnungsnummer werden "AS" und die Nummer jeweils in eine eigene Zeile eingelesen). Ob das am PDF-Format liegt oder am Scan weiß ich nicht.

Option Explicit

Public Sub SeiteninhalteAusgeben()
On Error GoTo ende
    Dim objDocument As Acrobat.AcroPDDoc
    Dim objPage As Acrobat.AcroPDPage
    Dim objSelect As Acrobat.AcroPDTextSelect
    Dim objRect As Acrobat.AcroRect
    Dim objPoint As Acrobat.AcroPoint
    Dim lngNumText As Long
    Dim i As Long
    Dim varRechnungsnummer() As Variant
    Dim strText As String
    Dim lngZeilen As Long
    Dim lngCounter As Long
    Set objDocument = New Acrobat.AcroPDDoc

    With objDocument
        .Open Environ("USERPROFILE") & "\Desktop\10000.pdf"
        
        For i = 0 To .GetNumPages - 1
            Set objPage = .AcquirePage(i)
            Set objPoint = objPage.GetSize
            Set objRect = New Acrobat.AcroRect
            objRect.Left = 0
            objRect.Top = objPoint.y
            objRect.Right = objPoint.x
            objRect.bottom = 0
            
            Set objSelect = objDocument.CreateTextSelect(i, objRect)

           lngCounter = 0
            For lngNumText = 1 To objSelect.GetNumText
                Redim Preserve varRechnungsnummer(0 To lngCounter)
                               varRechnungsnummer(lngCounter) = objSelect.GetText(lngNumText - 1)
                               lngCounter = lngCounter + 1
            Next lngNumText
        Next i
        .Close
    End With
    
    For lngZeilen = 0 To Ubound(varRechnungsnummer)
       If Mid(varRechnungsnummer(lngZeilen), 1, 8) = "Rechnung" Then
          MsgBox "Rechnungsnummer lautet: " & _
                 varRechnungsnummer(lngZeilen + 1) & _
                 varRechnungsnummer(lngZeilen + 2)
          Exit Sub
       End If
    Next
ende:
End Sub

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:René Holtz
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Beliebteste Forumthreads (12 Monate)

13 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

13
Beiträge zum Forumthread

Beiträge zu diesem Forumthread