محمد طاهر عرفه قام بنشر مارس 12, 2007 قام بنشر مارس 12, 2007 السلام عليكم طبعا كلنا يريد اختصار الوقت المبذول فى كتابة المذكرات و الرسائل على الوورد و الكثيرين منا يستخدمون خاصية ال 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
نزار سليمان عيد قام بنشر مارس 14, 2007 قام بنشر مارس 14, 2007 اخي محمد يعطيك العافية نحن ايضا افتقدناك نأمل المزيد من لمساتك السحرية
abnwail قام بنشر مارس 19, 2007 قام بنشر مارس 19, 2007 مرفق طيه ملف به جميع الاكواد عزيزي: الملف المرفق فاضي مافيه اي كوووووود
أكرم الغامدي قام بنشر ديسمبر 2, 2007 قام بنشر ديسمبر 2, 2007 يعطيك ألف عافية على هذه الأفكار الرائعة يا أستاذ محمد
ابراهيم البقري قام بنشر ديسمبر 18, 2007 قام بنشر ديسمبر 18, 2007 الاخ الفاضل الاستاذ / محمد انا عضو جديد معكم منذ يومين فعلا انا احتار كثيرا عندما ادخل الى منتداكم الرائع فكل المواضيع تفوح منها رائحة عطر المحبة والمودة والإخلاص التى تنتشر بين اعضاء النادى المبارك عندى سؤال لو سمحت موضوعك هذا رائع جدا جدا جدا ولكنى لا اعرف اين تكتب الأكواد ؟ وهل يمكن نسخ ولصق الكود من فضلك أخبرنى بطريقة الكود حتى استفيد من المنتدى الرائع إلى الامام دائما وبالتوفيق ابراهيم البقرى أبو محمد
algeria libya قام بنشر يناير 21, 2009 قام بنشر يناير 21, 2009 بسم الله الرحمن الرحيم شكرا لكم على الموضوع و لكن استفساري هو هل هناك امكانية من نقل المدخلات التلقائية المخزنة في جهازي الخاص الى جهاز أخر لكي استخدمها على الجهاز الاخر ولن اضطر الى كتابة النصوص التلقائية مرة أخرى . و السلام عليكم ورحمة الله وبركاته
أكرم الغامدي قام بنشر يناير 22, 2009 قام بنشر يناير 22, 2009 بسم الله الرحمن الرحيم شكرا لكم على الموضوع و لكن استفساري هو هل هناك امكانية من نقل المدخلات التلقائية المخزنة في جهازي الخاص الى جهاز أخر لكي استخدمها على الجهاز الاخر ولن اضطر الى كتابة النصوص التلقائية مرة أخرى . و السلام عليكم ورحمة الله وبركاته بعد إذن أستاذنا الكبير محمد طاهر طبعاً... نعم يمكنك أخي عمل ذلك من إبدأ>>كافة البرامج>>Microsoft Office 2003>>ثم Microsoft Office Tools>>ثم اختر Microsoft Office 2003 Save My Setting Wizard ثم اتبع الخطوات الموجودة في النموذج الذي سيظهر لك. وإذا في أي استفسار أنا والأخوان جاهزين.
أبووسم قام بنشر مارس 13, 2010 قام بنشر مارس 13, 2010 جـزاك الله خير بصراحة شروح رائعة جات في وقتها بارك الله فيك
ABOU YACINE قام بنشر أبريل 3, 2010 قام بنشر أبريل 3, 2010 فتح الله عليكم ابواب رحمته وزادكم علما ورفعة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.