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

 

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

 

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

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

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

ثم اختر view code

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

واختر module

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

Sub PDF_To_Excel()Dim setting_sh As WorksheetSet setting_sh = ThisWorkbook.Sheets("Setting")Dim pdf_path As StringDim excel_path As Stringpdf_path = setting_sh.Range("E11").Valueexcel_path = setting_sh.Range("E12").ValueDim fso As New FileSystemObjectDim fo As FolderDim f As FileSet fo = fso.GetFolder(pdf_path)Dim wa As ObjectDim doc As ObjectDim wr As ObjectSet wa = CreateObject("word.application")'Dim wa As New Word.Applicationwa.Visible = True'Dim doc As Word.DocumentDim nwb As WorkbookDim nsh As Worksheet'Dim wr As Word.RangeFor 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 FalseNextwa.QuitMsgBox "Done"End Sub

شرح الكود

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

pdf_path = setting_sh.Range(“E11”).Value

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

excel_path = setting_sh.Range(“E12”).Value

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

 

 

يمكن ان يعجبك أيضا

• تعرف علي مهارات كتابه المعادلات في الاكسيل من هنا
•  المرجع الشامل لدوال الاكسيل من هنا

• كتاب شرح اكسيل 2019 من هنا
• تحميل كتاب تطبيقات محاسبيه باستخدام برنامج الاكسيل تحميل مباشر من هنا

 

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



 seconds.

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