عدم تلوين التشكيل اثر على ترابط الحروف

[عبد الكبير نواري]

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

وجدت هذا الكود لكنه ثقيل جدا 

Sub FixUnicodeTashkeel()
    Dim i As Long
    Dim char As Range
    Dim charCode As Long
    
    Application.ScreenUpdating = False
    ' سيبدأ من الحرف الثاني ليفحص ما قبله
    For i = 2 To ActiveDocument.Characters.Count
        Set char = ActiveDocument.Characters(i)
        charCode = AscW(char.Text)
        
        ' نطاق اليونيكود للتشكيل العربي القياسي
        If charCode >= 1611 And charCode <= 1618 Then
            ' مطابقة لون التشكيل مع لون الحرف السابق له تماماً
            char.Font.Color = ActiveDocument.Characters(i - 1).Font.Color
        End If
    Next i
    Application.ScreenUpdating = True
    MsgBox "تمت معالجة كافة أكواد اليونيكود بنجاح!"
End Sub

هل من حل بارك الله فيكم

تم تعديل منذ 5 دقائق بواسطه Foksh
وضع الكود داخل مقتبس الأكواد <>