Hallo,
in Acess kann dieser Code ausgeführt werden:
Sub Open_PDFDoc()
Dim wrdApp As New Word.Application
Dim doc As Word.Document
Dim myDisplay As Word.WdAlertLevel
Dim sFileNamePDF As String
sFileNamePDF = "L:\temp\Word\PDF\Test.pdf"
myDisplay = wrdApp.DisplayAlerts
wrdApp.DisplayAlerts = wdAlertsNone
Set doc = wrdApp.Documents.Open(FileName:=sFileNamePDF, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="")
' Inhalte Splitten ...
doc.Close False
wrdApp.DisplayAlerts = myDisplay
wrdApp.Quit
End Sub
Beim Kommentar müssen die Split-Befehle eingesetzt werden.
Damit dieser Code funktioniert, muss im VBA-Editor ein Verweis auf Word eingetragen werden.
Letzendlich wird die PDF-Datei dennoch in Word aufgerufen. Access selbst kann keine PDF-Datei öffnen und Inhalte auslesen bzw. splitten.
LG, Ben
|