ـ[أبو إسلام عبد ربه]ــــــــ[04 - 03 - 06, 10:55 م]ـ
أخي الفاضل أبو عمر 80:
جزاكم الله خير الجزاء وبارك الله فيكم , لقد فشلت المحاولة
أخي الكريم عبد السلام الزائر:
لا اعلم كيف أشكركم على تعبكم في أخذ الصور ورفعها , جعله الله تعالى في ميزان حسناتكم يوم القيامة
ولكن المشكلة أن عندي أكثر من 500 ميجا ملفات هاتميل من يعسوب , ويصعب جدا تحويلها كلها إلى وورد
فإن استخدمتُ برنامج للتحويل , فسيصعب تنفيذ الخطوات على كل ملف وورد منها , فعندي مئات الملفات من يعسوب , فتهذيب الكمال مثلا 35 ملف , وتاريخ دمشق 70 ملف
اقتراح:
أنا أفهم جيدا في الهاردوير
ولكنني لا أفهم جيدا في السوفتوير والبرمجة , لذلك أرجو التماس العذر لي في السؤال التالي:
هل يمكن مثلا كتابة أمر برمجي بحيث يكون فاصل الصفحات مثلا على الصورة:
[؟]
بحيث أن علامة؟ تمثل عددا من 1 إلى 1000 مثلا
وبذلك فإن البرنامج إذا وجد القوسين وبداخلهما عدد من 1 إلى 1000 فإنه سيجعله فاصل صفحات
ملاحظة:
في يعسوب يكون القوس الأيمن بعده فراغ ثم العدد ثم فراغ ثم القوس الثاني تقريبا (فهل يمكن مراعاة ذلك؟)
ـ[أبو عمر]ــــــــ[04 - 03 - 06, 11:50 م]ـ
جزاكم الله خيرا
ـ[ياسر بن مصطفى]ــــــــ[05 - 03 - 06, 01:59 ص]ـ
جزاك الله خيرا
اخي الكريم نافع خملت الملف وعند فك الضغط عنه اتت رسالة ان الملف معطوب فارجو ان ترفعه او ان يرفع احد الاخوة الذين حملوه جزاهم الله خيرا
ذكرت لك من قبل اني لم استطع فهرسة فتح الباري لابن حجر وبالامس نفس المشكلة مع تفسير الطبري اتمني ان يكون في هذا التحديث علاج المشكلة
وانا كذلك للاسف
ـ[نور أبو مدين]ــــــــ[05 - 03 - 06, 02:06 ص]ـ
جزاك الله خيرًا أخي الكريم نافع.
أخي الكريم أبا إسلام:
يمكنك ذلك بإضافة هذا الماكرو في الورد:
Sub Macro4()
'
' Macro4 Macro
' تسجيل الماكرو 01/ 01 /2000 من قبل nour
'
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[ ^#^#^#^# ]"
.Replacement.Text = "^m
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "[ ^#^#^# ]"
.Replacement.Text = "^m"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "[ ^#^# ]"
.Replacement.Text = "^m"
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "[ ^# ]"
.Replacement.Text = "^m"
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub
ويمكنك إضافته من قائمة: أدوات > ماكرو > محرر Visual Basic
ـ[أبو عمر]ــــــــ[05 - 03 - 06, 02:14 ص]ـ
أخي نور جزاك الله خيرا
يمكن إدخال الترقيم بسهولة أكبر بكثير
وذلك بوضع فاصل الصفحات ---
مع الصفحة السابقة وجزاكم الله خير
ـ[نور أبو مدين]ــــــــ[05 - 03 - 06, 02:23 ص]ـ
أخي الكريم أبا عمر:
لم أفهم، الرجاء وضح لي أكثر ماذا تقصد
ـ[أبو عمر]ــــــــ[05 - 03 - 06, 02:25 ص]ـ
لإدخال الكتب من موقع يعسوب إلى الشاملة 2 وفقكم الله
يكفي وضع فاضل الصفحات "---" مع الصفحة السابقة
وجزاكم الله خيراً
ـ[عبدالسلام الزائر]ــــــــ[05 - 03 - 06, 06:46 ص]ـ
أخي أبو عمر 80 ,,،، سلمه الله ...
جربت الطريقة التي ذكرتَها مع كتاب فيه حواشي، فوضع كل حاشية في صفحة مستقلة ...
أخي الكريم: أبو إسلام عبد ربه ..... ملفات يعسوب لا تحتاج إلى تحويل ليفتحها الوورد، فقط اضغط على الزر الأيمن على الملف المراد فتحه، ثم فتح باستخدام .... واختر الوورد بدل المتصفح ....
وعلى كل .. أنا لم يسبق لي التعامل مع ملفات الموقع المذكور ...... ولكن لما رأيت سؤالك جربت الطريقة التي ذكرتها لك، ونجحت معي .....
ـ[أبو محمد الخامري]ــــــــ[05 - 03 - 06, 08:37 ص]ـ
ملف المساعدة وشرح البرنامج لا يعمل في هذا التعديل والتعديلات السابقة فما هو السبب
ـ[السويفي]ــــــــ[05 - 03 - 06, 08:45 ص]ـ
أخي الكريم نافع: سبق أن كتبت مشاركة فيها اقتراح على هذا الرابط، وأعيدها هنا عسى أن تجد منكم التفاتة كريمة، وجزاكم الله خيرا ...
http://www.ahlalhdeeth.com/vb/showthread.php?t=72984&page=2
هذا نص المشاركة:
الأخ الفاضل الدكتور نافع ...
السلام عليكم ورحمة الله وبركاته ...
ونسأل الله تعالى أن يبارك فيكم، ويجعل ما تقومون به في ميزان حسناتكم ...
أقترح إضافة إمكانية إنشاء قسم فرعي تحت الأقسام الرئيسة، وإمكانية وضع الكتب داخل هذا القسم الفرعي، فمثلا قسم التفاسير -وهو قسم رئيس- يمكن إنشاء قسم فرعي تحته بعنوان: كتب التفسير بالمأثور، أو التفاسير المسندة، وهذا سيسهل -إن شاء الله- اختيار نوعية الكتب المراد البحث فيها بسرعة ... بالإضافة إلى المزيد من الحرية في تصنيف الكتب وبيان أحوالها أو موضوعاتها ...
وإذا كانت هذه الإمكانية موجودة في الموسوعة أصلا فأرجو إعلامي بكيفيتها ...
وجزاكم الله خير الجزاء.
¥