تحويل ملفات pdf الي اكسيل بدون برامج بطريقه احترافيه
تحويل ملفات pdf الي اكسيل بدون برامج بطريقه احترافيه في البدايه دعنا نتعرف علي ملفات 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
يمكن ان يعجبك أيضا
- تعرف علي مهارات كتابه المعادلات في الاكسيل من هنا
- تعرف علي طريقه احترافيه في تجميع و دمج عده ملفات عمل اكسيل في ملف عمل واحد من هنا
- المرجع الشامل لدوال الاكسيل من هنا
- كتاب شرح اكسيل 2019 من هنا
- تحميل كتاب تطبيقات محاسبيه باستخدام برنامج الاكسيل تحميل مباشر من هنا
شرح الكود
‘ تحديد الخليه التي بها مسار الملفات pdf
pdf_path = setting_sh.Range(“E11”).Value
‘ تحديد مسار حفظ الملفات النهائيه الناتجه بصيغه اكسيل
excel_path = setting_sh.Range(“E12”).Value
يمكنك تطوير و التعديل علي الكود السابق ليتناسب مع عملك مع ملاحظه ان هذا الكود يعمل علي بيئه ويندوز مع مايكروسوفت اوفيس و لا يعمل مع البرامج البديله للاوفيس
معلومات الشيت
شيت | تحويل ملفات pdf الي اكسيل بدون برامج بطريقه احترافيه |
رقم الاصدار | 1 |
صيغة الملف | ملف اكسيل مضغوط بصيغه RAR |
الترخيص | مجاني مفتوح المصدر قابل للتعديل |
كلمه السر | 123 |
حجم الملف | 300 |
متطلبات التشغيل | نظام تشغيل ويندز يفضل بنظام 32 حزمه تطبيقات الاوفيس علي الاقل اصدار 2010 بنظام 32 |