[pakos]

μια που αναφεραμε στο προηγουμενο ποστ σχετικα με το Pdf

παραθετω τον κωδικα για split (ενα αρχειο Pdf με πολλες σελιδες να τις παρουμε μια-μια)

Sub spiltPdf()
Dim path, diadArxi, diadTeliki As String
path =διαδρομηΑρχειου.Pdf <---------------------------------------------- Το αρχειο PDF
diadArxi = path
diadTeliki = Left(diadArxi , Len(diadArxi) - 4)
Dim Acro_app As Acrobat.AcroApp
Dim Acro_PDDoc As Acrobat.AcroPDDoc
Dim Acro_NewPDDoc As Acrobat.AcroPDDoc
Set Acro_app = New Acrobat.AcroApp
Set Acro_PDDoc = New Acrobat.AcroPDDoc
Acro_PDDoc.Open (diadArxi)
Dim i As Integer
For i = 0 To Acro_PDDoc.GetNumPages() - 1
Set Acro_NewPDDoc = New Acrobat.AcroPDDoc
Acro_NewPDDoc.Create
Acro_NewPDDoc.InsertPages -1, Acro_PDDoc, i, 1, 1
Acro_NewPDDoc.Save 1, diadTeliki & " - " & i & ".pdf"
Next i
End Sub