طلب المساعدة فى إعداد ماكرو صعب

السلام عليكم

VBA ماكرو يقوم بعد عدد الحروف من حرف معين فى ملف وورد مع الأخذ بالاعتبار أن ال أ = ا = إ = آ و ان ي = ى

هذا رابط ملف الوورد

http://mypage.ayna.com/mtarafa/CountLetter.zip

تذكر السماح بتفعيل الماكرو

Tools,Macro,Security Medium

و عند فتح الملف يسأل البرنامج عن تفعيل الماكرو ، فتسمح له

الكود

Public MyLetter As String
Sub Countaletter()
MyLetter = InputBox("Enter the Letter", "Delete Except that letter", "M")
If Len(MyLetter) > 1 Then
 MsgBox "Write One Chr Please !", vbExclamation, "One Chr is only Allowed"
 Exit Sub
End If

MyLetter = Searchit(MyLetter)

Application.ScreenUpdating = True
Mycounter = 0
Selection.WholeStory
Mcount = Selection.Characters.Count
     ' MsgBox mcount
   For I = 1 To Mcount

   With Selection.Characters(I)
          Application.StatusBar = "Searching  ...." & _
             I & "/" & Mcount & "       Please Wait......."
       If Searchit(.Text) = MyLetter Then
        Mycounter = Mycounter + 1
       End If
        End With
   Next I

   MsgBox Str(Mycounter) + " Matches of Letter  " + MyLetter

End Sub

Function Searchit(Mychr)

If Mychr = "أ" Or Mychr = "إ" Or Mychr = "آ" Then
 Mychr = "ا"
End If

If Mychr = "ي" Or Mychr = "ى" Then
 Mychr = "ى"
End If
Searchit = Mychr
End Function  If UCase(Mid(Myword, I, 1)) = UCase(MyLetter) Then Searchit = True
 Next I
 End Function

الأخ الفاضل مصراوى

ألف شكر و الماكرو رائع وجربته واشتغل معاى ولكن لم يكن هذا ما أريده ما أريده هو أن يقوم الماكرو من تلقاء نفسه بعد جميع حروف اللغة العربيه ( بما فيها الهمزة التى على نبره مثل الملئكة) ويعطينى قائمة بعدد كل حرف الموجود فى الملف

أرجو ان لا تندم على ردك على واهتمامك بى وسوف أخبرك بسبب طلب هذا الماكرو قريبا على بريدك

وشكرا (f) (f) (f) (f)

علي عيني

حاضر

و لم يصلني شيئ علي البريد بعد

آسف علي التأخير و سأضع الرد بقسم الوفيس قريبا باذن الله

فقد أصبح هناك قسم للأوفيس

يا سيدى الفاضل ألف شكر تعبتك معاى

انا ذهبت الى المنتدى المذكور ووجدت دروسا شيقه أرجو الإستمرار فى كتابتها لأن البدايه الصحيحه لأى جديد هى أن تعلم لا أن تجيب على إستفسارات الحهلاء.

بارك الله فيـــــــــــــــــــك

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

عزيزى مصراوى

أين أنت ؟؟؟

آسف علي التأخير

بالفعل أعددت الملف

و لكن باقي التجربة

و ان سارات الامور كما اتمني أضعه غدا باذن الله فى قسم الاوفيس

مبروك انك أصبحت مشرف منتدى

انت تستاهل

أنا نفسى أرقص من الفرح ومتتخيلش نفسى أشوف البرنامج ده إزاى

والله العظيم ده حلم وحلم يجنن

الحمد لله رب العلمين ربنا دايما بيختار خدمه

وانت واحد منهم يا محمد إن شاء الله ربنا يجازيك بنية العمل الصالح ده إيمان بتوحيد كامل الأركان خالص لوجهه هو وحده

(f) (f) (f) (f) (f) (f)