عمل تعداد للكلمات داخل حقل

[Abo Mazin]

تجربة للإحصاء

count.doc

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

واجهتني مشلكة فى تنفيذ الكود السابق

أعددت ملف به عدد 2 ماكرو

الاول يقوم بعد كل الكلمات فى الملف

و الثاني

يقوم بعد الكلمات فى المجموعة التي تختارها قبل تحديد الماكرو selection

Countwords.rar

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

بعد عمل الملف السابق

تذكرت وجود كائن اسمه words يوفر الكود الي سطرين فقط

بدلا من البحث عن المسافات بين الكلمات و عدها

Sub CountwordsALLINFILE()
' Code By Mohamed Taher , www.officena.net
Selection.WholeStory
Mywords = Selection.Words.Count
   MsgBox Str(Mywords) + " words in all the file"
End Sub

Sub CountwordsSELECTION()
' Code By Mohamed Taher , www.officena.net
Mywords = Selection.Words.Count
   MsgBox Str(Mywords) + " words in the selection"
End Sub

و الروتين الاول يقوم بعد كل الكلمات فى الملف ، و الثاني فى المساحة المظللة فقط

[Abo Mazin]

دائما سباق بالخير أخ محمد

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

count.zip