تحويل ملفات pdf الي اكسيل بدون برامج بطريقه احترافيه

في البدايه دعنا نتعرف علي ملفات pdf
:هي صيغه ملفات طورتها شركه ادوبي عملاق صناعه و تطوير برامج الجرافيك لسهوله تبادل

المستندات و يمكن اعتبارها ملفات غير قابله للتعديل
بشكل مباشر تشبه ملفات الصور عادةً تستخدم لإنشاء ملفات أو مستندات للقراءة فقط و يمكن

الاستفاده منها في الحفاظ علي الملفات بنفس التنسيقات
و لا نحتاج الي برنامج الاوفيس لفتح ملف بي دي اف مهما كان شكل هذا الملف ان كان جداول

بيانات او فقرات نصيه

فكل هذه التسيقات ستفتح بصيغه واحده اشبه بالصوره
لا يمكن التعديل عليها بهذه الصيغه مباشره

ملفات الاكسيل كغيرها من الملفات النصيه التي يسهل
التعديل عليها

يدعم برنامج مايكروسوفت اكسيل بدايه من الاصدار
2010 حفظ ملفات الاوفيس الي صيغه pdf بدون الحاجه الي برامج

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

التعديل عليها الا ان معظه هذه البرامج و المواقع
لا تدعم اللغه العربيه و البعض الاخر يعطي نتائج غير دقيقه  لذلك سنحاول في هذا المقال استعراض

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

نصي يسهل التعديل عليه

و مما لا شك فيه اصبحت صيغه ملفات pdf صيغه مهمه و نستخدمها بطريقه شبه يوميه في اعمالنا

الا اننا عند محاوله التعديل علي اي ملف بيدي اف
نواجه العديد من المشاكل خصيصا اذا كان الملف يحتوي علي اللغه العربيه لان معظم برامج
تحويل

ملفات البيدي اف لاتدعم اللغه العربيه و تحولها
الي حروف غير مفهومه

و لكن اليوم نستعرض طريقه جديده تدعم اللغه العربيه
في تحويل ملفات pdf
و بدون برامج عن طريق كود موجود في ملف العمل المرفق يقوم

بتحويل اي ملف بي دي اف الي ورد ثم الي اكسيل بطريقه
بسيطه و مع دعم اي لغه بشرط ان تكون مثبته علي نظام التشغيل ويندوز

طريقه التعامل مع ملف العمل

قم نفتح ملف العمل المرفق
نشط الماكرو

قم بعمل ملف جديد و ضع فيه ملف pdf المراد تحويله الي اكسيل

قم بعمل ملف جديد ليتم حفظ فيه ملفات الاكسيل المحوله
من pdf

انسخ مسار الملفات و ضعها في شيت العمل و اضغط علي
تحويل  ليتم تحويل الملفات من بي دي اف الي
ورد ثم الي اكسيل

كيف يمكنني ان استخدم الكود

افتح ملف اكسيل جديد

قم بفتح محرر الاكواد من داخل الاكسيل عن طريق الضغط
علي اسم الشيتClick right

ثم اختر view
code

بعد فتح صفحه محرر الاكواد انتقل الي القائمه Insert

واختر module

قم بلصق الكود التالي

الكود المستخدم في ملف العمل

Sub PDF_To_Excel()
Dim setting_sh As Worksheet
Set setting_sh = ThisWorkbook.Sheets("Setting")
Dim pdf_path As String
Dim excel_path As String
pdf_path = setting_sh.Range("E11").Value
excel_path = setting_sh.Range("E12").Value
Dim fso As New FileSystemObject
Dim fo As Folder
Dim f As File
Set fo = fso.GetFolder(pdf_path)
Dim wa As Object
Dim doc As Object
Dim wr As Object
Set wa = CreateObject("word.application")
'Dim wa As New Word.Application
wa.Visible = True
'Dim doc As Word.Document
Dim nwb As Workbook
Dim nsh As Worksheet
'Dim wr As Word.Range
For Each f In fo.Files
    Set doc = wa.documents.Open(f.Path, False, Format:="PDF  Files")
    Set wr = doc.Paragraphs(1).Range
    wr.WholeStory  
    Set nwb = Workbooks.Add
    Set nsh = nwb.Sheets(1)
    wr.Copy
        nsh.Paste
    nwb.SaveAs (excel_path & "\" & Replace(f.Name, ".pdf",  ".xlsx"))
       doc.Close False
    nwb.Close False
Next
wa.Quit
MsgBox "Done"
End Sub

شرح الكود

' تحديد الخليه التي بها مسار الملفات pdf

pdf_path = setting_sh.Range("E11").Value

' تحديد مسار حفظ الملفات النهائيه الناتجه بصيغه اكسيل

excel_path = setting_sh.Range("E12").Value

يمكنك تطوير و التعديل علي الكود السابق ليتناسب مع عملك مع ملاحظه ان
هذا الكود يعمل علي بيئه ويندوز مع مايكروسوفت اوفيس و لا يعمل مع البرامج البديله
للاوفيس

لتحميل ملف العمل النهائي

إنتظر قليلا قبل التوجه إلى رابط التحميل



 seconds.

اذا لم يتم التحميل التلقائي اضغط علي رابط هنا