Abo Mazin قام بنشر مارس 6, 2004 مشاركة قام بنشر مارس 6, 2004 تجربة للإحصاء count.doc رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مارس 6, 2004 مشاركة قام بنشر مارس 6, 2004 واجهتني مشلكة فى تنفيذ الكود السابق أعددت ملف به عدد 2 ماكرو الاول يقوم بعد كل الكلمات فى الملف و الثاني يقوم بعد الكلمات فى المجموعة التي تختارها قبل تحديد الماكرو selection Countwords.rar رابط هذا التعليق شارك More sharing options...
محمد طاهر عرفه قام بنشر مارس 7, 2004 مشاركة قام بنشر مارس 7, 2004 بعد عمل الملف السابق تذكرت وجود كائن اسمه 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 و الروتين الاول يقوم بعد كل الكلمات فى الملف ، و الثاني فى المساحة المظللة فقط رابط هذا التعليق شارك More sharing options...
Abo Mazin قام بنشر مارس 7, 2004 الكاتب مشاركة قام بنشر مارس 7, 2004 دائما سباق بالخير أخ محمد أكوادك التى كتبتها جيدة جدا وجميلة ولكنها تتعامل مع النص ككل او مع التحديد وقد قمت بتعديل يسير في الكود الذي وضعته حتى يتيسر تشغيله وإظهار نتائجه فأرجوا أن تحوز إعجابكم count.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.