السلام عليكم .. مرفق ملف pdf واريد تقسيمه لصفحات ..بحثت ووجدت الكود في النموذج ولكن لم استطع

[علياء يسرالدين]

كيف يمكن تقسيم ملف pdf من خلال الكود الموجود او كود بديل.؟

pdf.rar

[SEMO.Pa3x]

17 ساعات مضت, علياء يسرالدين said:

كيف يمكن تقسيم ملف pdf من خلال الكود الموجود او كود بديل.؟

pdf.rar 442.01 kB · 5 downloads

 

ما المقصود بتقسيم ملف pdf ؟ مالذي تريديه بالضبط ممكن شرح اكثر.

[علياء يسرالدين]

ملف pdf متعدد الصفحات واريد تقسية الى صفحات مستقلة كل صفحة لوحدها في مجلد مثلا داخل او خارج قاعدة البيانات عن طريق كود مشابة للكود الموجود بالنموذج المرسل

[husamwahab]

تفضلوا هذا التعديل

Private Sub ÃãÑ0_Click()
Dim PDDoc As Acrobat.CAcroPDDoc, newPDF As Acrobat.CAcroPDDoc
Dim PDPage As Acrobat.CAcroPDPage
Dim thePDF As String, PNum As Long

'...

thePDF = CurrentProject.Path & "\اسم ملف pdf.pdf"

Set PDDoc = CreateObject("AcroExch.pdDoc")
Result = PDDoc.Open(thePDF)
If Not Result Then
   MsgBox "Can't open file: " & FileName
   Exit Sub
End If

'...
PNum = PDDoc.GetNumPages

For i = 0 To PNum - 1
    Set newPDF = CreateObject("AcroExch.pdDoc")
    newPDF.Create
    NewName = CurrentProject.Path & "\" & "Page_" & i & "_of_" & PNum & ".pdf"
    newPDF.InsertPages -1, PDDoc, i, 1, 0
    newPDF.Save 1, NewName
    newPDF.Close
    Set newPDF = Nothing
Next i
End Sub

 

[علياء يسرالدين]

شكرا لإهتمامك .. هل لابد وجود برنامج pdf الأساسي.. لان ظهرت هذه الرسالة ..الله يعافيك

[husamwahab]

تفضلي التعديل

والتعديل هو ادخال اسم الملف للكود بدل من عبارة اسم ملف pdf

وكذلك اضافة مكتبة Acrobat

Compressed.rar

[علياء يسرالدين]

شكرا على اهتمامك ..الله يبارك في جهدك .. اين اجد مكتبة acrobat  هل يوجد رابط لها؟ وهل يمكن اختيار ملف من مربع حوار وليس كتابته من داخل الكود؟