[Anas Mahmoud]

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

المشكلة استاذي في منطق الدالة ReplaceString نفسه ، 

strChar هو حرف وحيد ولا يمكن استخدامه داخل Select Case لاختبار اكثر من حرف مثل "ال" او "ابن"

جربت نفس الطريقة ولكني عدلت الدالة لتبحث عن البادئات اولا وتمسحها ومن ثم تبحث عن الحروف الغريبة  :

كود :

   Public Function ReplaceString(In_Text As String) As String
       Dim X As Long
       Dim strChar As String
       Dim strReturn As String
       strReturn = ""



       If In_Text.StartsWith("ابن") Then
           In_Text = In_Text.Substring(3, In_Text.Length - 3)
       End If
       If In_Text.StartsWith("أبو") Then
           In_Text = In_Text.Substring(3, In_Text.Length - 3)
       End If
       If In_Text.StartsWith("ال") Then
           In_Text = In_Text.Substring(2, In_Text.Length - 2)
       End If
       For X = 1 To Len(In_Text)
           strChar = Mid(In_Text, X, 1)
           Select Case strChar
               'Case "ال"
               '    strChar = ""
               'Case "ابن "
               '    strChar = ""
               'Case "أبو "
               '    strChar = ""
               Case Chr(243), Chr(240), Chr(245), Chr(246), Chr(242), Chr(241), Chr(248), Chr(250)
                   strChar = ""
           End Select
           strReturn = strReturn & strChar
       Next
       ReplaceString = strReturn
   End Function

والنتيجة :

   

اتمنى ان هذا ما كنت تريده