محمد طاهر عرفه

السلام عليكم طبعا كلنا يريد اختصار الوقت المبذول فى كتابة المذكرات و الرسائل على الوورد و الكثيرين منا يستخدمون خاصية ال autotext أو الاكمال التلقائي ، و التى توفر الادخال المباشر لنصوص ثابتة و لكن هذا ليس موضوع المشاركة ، و انما موضوعها كيفية التعامل مع النص المخزن بصورة ديناميكية بحيث يتم ادراج التاريخ مثلا بتنسيقات مختلفة داخل النص ، و لكن اولا سنعرض سريعا لخاصية الاكمال التلقائي العادية Autotext و ان كان قد سبق الحديث عنها فى مواضيع أخري خاصية النص التلقائي ( العادية ) ===================================== و يتم استخدام هذه الخاصية اما عن طريق Insert Autotext او Alt+F3 بعد اختيار النص المراد تخزينه أو عن طريق الايقونة (اضغط على الصورة للتكبير) (اضغط على الصورة للتكبير) ثم نختار الاسم المقترح للنص المراد تخزينه مثلا اذا اخترنا النص التالى السلام عليكم و رحمة الله و بركاته تحية طيبة و بعد ... بالإشارة الى موضوع ثم نفذنا ما سبق و اسميناه اي اسم مختصر مثل "ال77" و اثناء الكتابة كتبنا "ال77" فيظهر لك المربع الاصفر ليخيرك بين ادخال النص المخزن عن طريق ضغط Enter أو اكمال الكتابة (اضغط على الصورة للتكبير) فنستغنى بذلك عن كتابة كل النص المشار اليه باللون الاحمر اعلاه بكتابة "ال77" فقط أو نختار ادراجه من القوائم او الايقونة كما فى التسجيل أعلاه هذا بالنسبة للنصوص الثابتة و لكن ما احتجت اليه مؤخراً هو ادخال نص يجوي الاشارة الى تاريخ يقع بعد عدد معين متغير من الايام و ادراجه فى النص بتنسيقات مختلفة أي أن المطلوب مثلا اختيار رقم 10 ، فتظهر جملة بها تحديد اليوم الذى يقع بعد عشرة ايام من اليوم كنص ( الخميس مثلا) و التاريخ الذى يقع بعد عشرة ايام ، و ذلك مدرجة فى وسط صياغة معينة ، و الحل كما يلي : ادراج نص ديناميكي ================= المطلوب تحقيقه ، هو ادخال رقم 10 مثلا ( اي بعد عشرة ايام) فيتم ادراج النص التالى مباشرة وذلك فى موعد أقصاه يوم السبت الموافق 24/03/2007. حيث السبت و التاريخ يتم استنتاجهم بناء على رقم 10 ( أي بعد عشرة ايام من تاريخ اليوم) و الحل هواستخدام الماكرو التالي ( و طبعا يمكن تسجيله فى ال Personla Macro Sheet ووضع ايقونة له أو تخصيص زر مختصر لتشغيله shortcut) أو تشغيله مباشرة من خلال Tools Macros Sub periods() Dim m As Integer, n As Date, t As String m = InputBox("please enter period", "Period Replacer", 7) n = Date + Int(m) t = Replace_date(n) t = "وذلك فى موعد أقصاه يوم " & t & " الموافق " & n & "." Selection.Text = t End Sub حيث الدالة Replace_date لجأت اليها لتحويل اسم اليوم الانجليزي الى العربي فقط حيث ان التنسيق b2ddddd لم يعمل بالكود Function Replace_date(time_period As Date) As String Dim n1 As String n1 = Format(time_period, "dddd") If n1 = "Sunday" Then n1 = "الأحد" If n1 = "Monday" Then n1 = "الإثنين" If n1 = "Tuesday" Then n1 = "الثلاثاء" If n1 = "Wednesday" Then n1 = "الأربعاء" If n1 = "Thursday" Then n1 = "الخميس" If n1 = "Friday" Then n1 = "الجمعة" If n1 = "Saturday" Then n1 = "السبت" Replace_date = n1 End Function و الطريقة الثالثة ، هي مماثلة للاولي و لكن بالكود عند تشغيل الماكرو تظهر لك قائمة بالمواضيع التى سبق و سجلتها و تختار بينها عن طريق الرقم و لا اضافة فى هذه الطريق عن الاولي الا بعض السرعة و لكن عيبها انها تحتاج التعديل فى الكود لاضافة نص او لتعديل نص Sub mytexts2() Dim m, m1 As Integer, t As String m = "1 for النص الاول " & Chr(10) m = m & "2 for النص الثانى " & Chr(10) m = m & "3 for النص الثالث " & Chr(10) m1 = InputBox(m, "My Text Replacer", 2) If m1 = 1 Then t = "النص رقم واحد المراد ادارجه ع طريق الكود " ElseIf m1 = 2 Then t = "النص رقم اثنين المراد ادارجه ع طريق الكود " ElseIf m1 = 3 Then t = "النص رقم ثلاثة المراد ادارجه ع طريق الكود " Else End If Selection.Text = t End Sub مرفق طيه ملف به جميع الاكواد Mytexts.zip

هذا المف غير قابل للفتح و لكن يمكن توجيه الاوتلوك لقرائته Tools Options Mail Setup Data files و يمكن اضافة اكثر من ملف

وصلتنى على البريد السلام عليكم ورحمه الله وبركاته حاليا تجري جريدة اسبانية استفتاء حول ما هي الشخصية الكبيرة التي لها تأثير على البشرية ومن تلك الشخصيات الحبيب المصطفى صلى الله عليه واله وسلم وباقي الأنبياء كسيدنا عيسى وعدة شخصيات أخرى والشخصية الأعلى تصويتا سوف ينجز عنها برنامج خاص للتعريف بها وهذه هي الفرصة السانحة كي يتعرف الأسبان والأوربيين بالحبيب المصطفى إخواني لا تبخلوا عن رسولكم وصوتوا له ملاحظة انا اعرف ان المصطفى صلى الله عليه وسلم أنبل وارفع عن هذه الاستفتاءات ولكن هذا الاستفتاء ورائه شيء اخر هو انجاز برنامج خاص عن الشخصية الفائزة وهذا ما نريده من اجل التعريف بشخص رسول الله صلى الله عليه واله وسلم لا تبخلوا عن رسولكم هذا هو الموقع واسم محمد (صلى الله عليه و سلم) بالاسبانية هو Mahoma http://www.elmundo.es/elmundo/debate/2007/...aciones689.html

السلام عليكم قمت بتجنيب الموضوع منذ عدة أيام حتى أستوضح الأمر من أبو هادي و لكن لم يصلنى رد حتى الان لذا وجدت أنه من حقه علينا أن نعيد الموضوع للظهور و يؤسفنى رحيل الأخ أبو هادي ، و أتمنى أن يكون ذلك بصفة مؤقتة و قد اضاف أبو هادي الكثير من المشاركات المميزة التى استفاد و سيسفيد منها الكثيرين بإذن الله تعالي، و لا لست فى حاجة الى الحديث عن ذلك فمشاركاته فى غنى عن الالتعقيب. ولا يسعنى الا أن أقول أننا جميعا فى انتظار عودته للمشاركة فى المنتدي و المشاركة فى فريق العمل فى الوقت الذى يراه مناسباً له.

تم تدشين موقع لسيرة الرسول الكريم - صلى الله عليه وسلم- بعشر لغات من هنـــــــــــــــــــــــــــا

اعتقد أن ذلك غير متاح فى الجداول المحورية و اذا اردته لا اعرف طريقة الا نسخ منتوج الجداول و لصقه كقيم فى صفحة جديدة ثم اضافة المعادلات يدويا اما اذا كانت البيانات فى المصدر عددها ثابت ( و هذا طبعا مستبعد) فيمكن ربط المعادلات فى الملف الجديد مع الجدول المحوري بمعادلات

VSTO و هو اختصار Visual Studio 2005 Tools for Office Second Edition ستجد الاهتمام به اكبر فى مواقع الدوت نت و ليس الاوفيس فرغم انه موجه للتطوير و الاضافة الي الاوفيس ، الا أنه اضافة الي الفيجوال استوديو أي لابد من وجود الفيجوال استوديو الدوت نت لديك لاستخدانه و للمزيد حوله Visual Studio 2005 Tools for Office Second Edition و لتنزيله و هذا فيديو يشرحه بالانجليزية و ربما مستقبلا بإذن الله يتم التوسع لفتح مجال للحديث عن هذه الجزئية لانها فعلا ذات علاقة

فى اي برنامج تقصد ؟؟

جرب التظليل بالكيبورد و ذلك بالتحرك بالاسهم ، ثم اضغط shift و استمر فى الضغط مع الحركة بالسهم فاذا كان التظليل يثبت هكذا فاغلب الظن أن المشكلة فى الماوس

أعتقد أن هذا لا الا عن ينتج عن تغيير قمت به فى الاعدادات الافتراضية للطابعة و عليك مراجعتها أو اذا كان من الطابعة اسطوانة عليها ملف setup قم باعادة تحميله أو لا تطبع من ايقونة الطباعة و اختر امر طباعة من قائمة ملف و ستجد مربع خيار ، اسمه الطباعة الي الملف Print to File ازل الخيار

السلام عليكم بعد اذن اخي خضر بالاضافة الي ما ستقوم برفعه هناك موضوع مثبت فى قسم تحليل البيانات فى أرشيف الاكسيل به بعض الشرح http://www.officena.net/ib/index.php?showforum=49

الملف لا يعمل

برنامج أوقات الصلاة أبو هادي – رضوان – أبو سليمان – خضر الرجبي أول برنامج جماعى ناجح http://www.officena.net/ib/index.php?showtopic=7609 Prayer001.rar

خبر جميل و باذن الله لا يحدث توقف ابدا مرة أخري

مثال علي عرض أكواد الماستر فورمات محمد طاهر وصلة الموضوع http://www.officena.net/ib/index.php?showtopic=15104 Periods.zip

مثال لتحويل الأوزان والمقاييس لأبى هادي وصلة الموضوع: http://www.officena.net/ib/index.php?s=&am...ost&p=41508 Measuers_20050916.zip

تفقيط عربي انجليزي محدث للأكسس والأكسل لأبى هادي وصلة الموضوع: http://www.officena.net/ib/index.php?showtopic=315 Num2Text_20060728.zip

هذا الموضوع مخصص لوضع نسخ البرامج التي سيتم عرضها بالصفحة الرئيسية و وصلة الموضوع فى المنتدي و هنا سيتم وضع النسخة علي صورة mde مع الاشارة الي الموضوع الاصلي الذى يحوي ملف ال mdb ( ان وجد ) و يتم وضع كل ملف فى مشاركة مستقلة برنامج خارطة الهلال لأبى هادي CrescentMap_20061107.rar وصلة الموضوع برنامج خارطة الهلال برنامج فلكي http://www.officena.net/ib/index.php?showtopic=14293 التعديل على الصور وإعادة حفظها بالكود مثال من برنامج خارطة الهلال http://www.officena.net/ib/index.php?showtopic=14776 وصلة الموضوع فى مكتبة الموقع

الماستر فورمات هو نظام عالمي لتصنيف أو تكويد بنود الأعمال الانشائية و الكود القديم كان ينقسم الي 16 تقسيم رئيسي و الان هو قد أصبح 48 تقسيم و للمزيد حول التقسيمات يمكن زيارة موقع ال CSI http://www.csinet.org/s_csi/sec.asp?TRACKI...CID=5&DID=5 و تحديدا http://www.csinet.org/s_csi/docs/9400/9361.pdf و هذا المثال لعرض التقسيمات و البحث فيها ( بالبيامات القديمة) MF_2002_01.rar

تحرير الصورة بطريقة محترفة لا يمكن عمله فى الوورد بشكل مميز و انما يجب عمل ذلك باحد برامج تحرير الصور مثل الفوتوشوب و كل ما اعرف انك يمكنك عمله فى الوورد اذا أردت اخفاء جزء من الصورة ، هو أن تضع شكل او كتابة فوقها

لم تدخل هذه الجملة حيز التنفيذ ، منذ إضافة القسم و سيتم تعديلها باذن الله تعالي

شكرا على التوضيح

السلام عليكم أخي أبو هادي ، جزاك الله خيرا على المثال الرائع دائما توفى بوعودك ، جعله الله فى ميزان حسناتك و أدعو الجميع للاستفادة من المثال المميز ألأخوة الكرام البرنامج يطلب عدد 2 OCX gif89.ocx PicFormat32.ocx اذا أزلت المرجعين ، سيعمل البرنامج ،مع تعديل الكود الذى اشار اليه الأخ أبو هادي أخي أبو هادي هل هذه المراجع مطلوبة للمثال الحالي ..؟؟؟ اذا كان فيرجى ارفاقها بعد اذن أخونا أبو هادي سأرفق الملف بعد التعديل فى المشاركة الأولي لفت نظري شيء غريب ( بالنسبة لي ) فى هذا الملف و لا أعلم سببه و هو ان الملف عند تشغيله ، اذا ضغطت CTR+ALT+DELETE لا يظهر ضمن البرامج العاملة اي كانه service و ليس تطبيق اكسيس فما السر فى ذلك ؟؟

تمت الاضافة فى المشاركة رقم 65 حيث أشار الأخ تامر

من الممكن ادراج الملفات ضمن الجدول و لكن هذا حل مرفوض مرفوض مرفوض و القاعدة الذهبية هي وضع الملفات فى مجلد ثابت و تسجيل مسار الملفات فقط فى قاعدة البيانات و يمكن اذا كان من الصعب تثبيت المسار ، تغيير البرمجة بحيث تكون الملفات فى مجلد فرعي باسم ثابت موجود داخل المجلد الذى توجد به قاعة البيانات و فى هذه الحالة تخزن فقط اسم الملف و امتداده فى الجدول و تستدعي مسار مجلد القاعدة بالكود ثم تضيف عليه اسم المجلد ( ثابت) ثم اسم الملف و امتداده و للحصول علي مسار المجلد الذى توجد به القاعدة راجع هذا الموضوع http://www.officena.net/ib/index.php?s=&am...post&p=6758 أو كحل آخر تخزن مسار الملفات المرفقة فى حقل بحيث يمكن تغييره و استخدامه عند تكوين المسار الكامل للملف و لاختيار مسار مجلد راجع هذا المثال http://www.officena.net/ib/index.php?s=&am...post&p=5146 و الاسهل و دائما هو أن تثبت المسار من البداية و عند النقل تنقل الملفات الى نفس المسار و نهاية أود أن أضيف أن أفضل الطرق ( من وجهة نظري ) لفتح الملف بناء على المسار المخزن هى http://www.officena.net/ib/index.php?s=&am...ost&p=40965