كيف تختصر وقت كتابة الخطابات و المذكرات ؟

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

السلام عليكم

طبعا كلنا يريد اختصار الوقت المبذول فى كتابة المذكرات و الرسائل على الوورد

و الكثيرين منا يستخدمون خاصية ال 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

[نزار سليمان عيد]

اخي محمد

يعطيك العافية نحن ايضا افتقدناك نأمل المزيد من لمساتك السحرية

[محمد السباعي]

بارك الله فيك يا أخ محمد

جزاكم الله خيرا

[egyptian_eg]

مثال رائع

[bufahad]

الف شكر لك على الجهد الكبير

[abnwail]

مرفق طيه ملف به جميع الاكواد

عزيزي: الملف المرفق فاضي مافيه اي كوووووود

[kaci]

يعطيك العافية

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

اضغط

ALT+F11

لرؤية الاكواد

[شحادة بشير]

بارك الله فيك أستاذنا الحبيب

[bufahad]

جزاك الله خيرا

[أكرم الغامدي]

يعطيك ألف عافية على هذه الأفكار الرائعة يا أستاذ محمد

[MosTa7el]

بارك الله فيك أستاذنا الحبيب

[ابراهيم البقري]

الاخ الفاضل الاستاذ / محمد

انا عضو جديد معكم منذ يومين

فعلا انا احتار كثيرا عندما ادخل الى منتداكم الرائع

فكل المواضيع تفوح منها رائحة عطر المحبة والمودة والإخلاص التى تنتشر بين اعضاء النادى المبارك

عندى سؤال لو سمحت موضوعك هذا رائع جدا جدا جدا ولكنى لا اعرف اين تكتب الأكواد ؟ وهل يمكن نسخ ولصق الكود

من فضلك أخبرنى بطريقة الكود حتى استفيد من المنتدى الرائع

إلى الامام دائما وبالتوفيق

ابراهيم البقرى

أبو محمد

[saffaa]

كافأكم الله بكل خير

[مصطفى سعد]

جزاك الله خير

[spe100]

يعطيك العافية وماقصرت موضوع ممتاز

[algeria libya]

بسم الله الرحمن الرحيم

شكرا لكم على الموضوع

و لكن استفساري هو هل هناك امكانية من نقل المدخلات التلقائية المخزنة في جهازي الخاص الى جهاز أخر لكي استخدمها على الجهاز الاخر ولن اضطر الى كتابة النصوص التلقائية مرة أخرى .

و السلام عليكم ورحمة الله وبركاته

[أكرم الغامدي]

بسم الله الرحمن الرحيم

شكرا لكم على الموضوع

و لكن استفساري هو هل هناك امكانية من نقل المدخلات التلقائية المخزنة في جهازي الخاص الى جهاز أخر لكي استخدمها على الجهاز الاخر ولن اضطر الى كتابة النصوص التلقائية مرة أخرى .

و السلام عليكم ورحمة الله وبركاته

بعد إذن أستاذنا الكبير محمد طاهر طبعاً...

نعم يمكنك أخي عمل ذلك من إبدأ>>كافة البرامج>>Microsoft Office 2003>>ثم Microsoft Office Tools>>ثم اختر Microsoft Office 2003 Save My Setting Wizard

ثم اتبع الخطوات الموجودة في النموذج الذي سيظهر لك.

وإذا في أي استفسار أنا والأخوان جاهزين.

[أبووسم]

جـزاك الله خير

بصراحة شروح رائعة جات في وقتها بارك الله فيك

[مجهر]

احسنتم يا اخوان والى الامام

[جمال046]

جزاكم الله خير الجزاء

على هذا التوضيح المفيد

[ABOU YACINE]

فتح الله عليكم ابواب رحمته وزادكم علما ورفعة