Hallo,
ich habe nur eine Teillösung:
In Word können ab Version 2010 (?) auch PDF-Dokumente geöffnet werden.
Mit dem nachstehenden Code wird eine PDF-Datei in Word geöffnet:
Sub Open_PDFDoc()
Dim doc As Document
Dim myDisplay As WdAlertLevel
Dim sFileNamePDF As String
sFileNamePDF = "L:\temp\Word\PDF\Test.pdf"
myDisplay = Application.DisplayAlerts
Application.DisplayAlerts = wdAlertsNone
Set doc = Documents.Open(FileName:=sFileNamePDF, ConfirmConversions:=False, ReadOnly:= _
False, AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:= _
"", Revert:=False, WritePasswordDocument:="", WritePasswordTemplate:="", _
Format:=wdOpenFormatAuto, XMLTransform:="")
Application.DisplayAlerts = myDisplay
End Sub
Es muss lediglich der Pfad zur PDF-datei angepasst werden.
Was fehlt, ist das Splitten der Seiten und das Speichern dieser einzelnen Seiten als neues PDF-Dokument.
LG, Ben
|