|
Hallo zusammen,
ich komme leider nicht weiter, daher bitte Euch um Hilfe.
Ich möchte einen Automatismus erstellen, damit die Formulareinträge von mehreren PDF's (nach Auswahl) in Excel übernommen werden können. Ich habe den Code so erfasst, aber ich kriege nicht die Textfelder vom Formular, die von den Personen ausgefüllt werden, sondern nur was außerhalb drum geschrieben ist zu sehen. Als nächsten Schritt wollte ich die Textfelder in Excel ab Zelle D8 übernehmen, aber es funktioniert nicht.
Sub PdfToExcel()
Dim word_app As Word.Application
Dim word_doc As Word.Document
Dim clean_text, table_text, summary_text, all_text, file_name As String
Dim txt_line_1, text_line_2, stadt_name, person_name, , person_vorname, anschrift_code As String
Dim words_arrayss_1() As String, words_array_2() As String
Set word_app = New Word.Application
word_app.Visible = False
word_app.DisplayAlerts = False
Dim objRe As New RegExp
objRe.MultiLine = True
objRe.Global = True
file_name = "*.pdf"
Set word_doc = word_app.Documents.Open(file_name, False)
all_text = word_doc.content
objRe.Pattern = "(^.*Anzeige)(.*)(Unterschrift.*)"
table_text = objRe.Replace(all_text, "$2")
summary_text = objRe.Replace(all_text, "$1")
Debug.Print summary_text
word_doc.Close True
word_app.Quit
End Sub
|