Ανανέωση ιστοσελίδας

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 17-09-23, 13:58
Όνομα: Πάκος
Έκδοση λογισμικού Office: Ms-Office 2016
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 17-12-2011
Περιοχή: Θεσσαλονικη
Μηνύματα: 169
Προεπιλογή split Pdf

μια που αναφεραμε στο προηγουμενο ποστ σχετικα με το 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
Απάντηση με παράθεση
Απάντηση στο θέμα


Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Split form mikekal1oo Access - Ερωτήσεις / Απαντήσεις 0 22-04-16 21:19


Η ώρα είναι 23:34.