أخي الكريم المسألة بسيطة جداً فقط اتبع الخطوات ولا تهمل منها شيء
1-حمل الملفات المرفقة بالمقال والموضوعة بملف مضغوط وبعد فك الضغط ينتج لك الملفين التاليين Module1 و NewMacros
2-افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic
3-من قائمة File اختر Import file ثم اختر الملفات التي قمت بتحميلها من المرفق
4-اغلق صفحة Visual Basic وارجع لصفحة وورد
5-من قائمة عرض اختر أشرطة أدوات > تخصيص ، ومن التبويب الأوامر وتحت قائمة فئات اختر وحدات ماكرو لتظهر فى القائمة المقابلة أمر Normal.NewMacros.تفقيط واضغط علية بالماوس مع السحب إلى شريط القوائم أو أي مجموعة من الأزرار
6-يمكنك تعديل الاسم والخواص بالضغط بالزر الأيمن على الأمر الجديد وذلك قبل غلق مربع حوار تخصيص
7-اكتب أي رقم مرغوب في وورد ثم حدده وهذه النقطة مهمة " التحديد" ثم اكبس الزر أز الأمر الذي أنتجته فيظهر التفقيط فوراً
8- لتغيير الليرة السورية والقرش افتح وورد ومن قائمة أدوات اختر : ماكرو > محرر Visual Basic ثم اتجه لمجموعة النورمال Normal > ومنها Modules ثم افتح المسمى New Macros فتجد نوع العملة قم بتغييرها من هنا
نجاح العملية معك يعتبر نجاح لي ولك على السواء
scorpion4ever
المرفق
Tafqeet.rar