معلومة : كيف تكشف عن الأخطاء الإملائية والنحوية ؟

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

بين يديكم اليوم معلومة - أعتبرها قيمة - وهي كشف إذا كانت هناك أخطاء إملائية أو أخطاء نحوية من عدمه داخل نص تحدده أنت ، والعيب في هذه الطريقة (على الأقل في حد علمي) أنها لا تظهر الخطأ بعينه ولكن هي فقط تختبر هل هناك أخطاء إملائية أم لا .

ونستخدم لهذا الغرض برنامج مايكروسوفت وورد من داخل بيئة الدوت نيت ، لذا وقبل أي شيء نضيف Microsoft Word Object Libarary داخل البرنامج وذلك باختيار Add Reference ونختار COM ثم نحدد المكتبة المذكورة .

الآن أصبحنا جاهزين ..

أولا ضع TextBox Control وسمه مثلاً TxtBx

ثانياً ضع Button وسمه مثلاً Btn وضع في حدث Click الخاص به الكود الآتي :

        Dim wordApp As New Word.Application
        Dim bolHasNoErrors As Boolean = _
            wordApp.CheckSpelling(TxtBx.Text)
        Dim strCheckAs String = "هناك أخطاء إملائية"

        If bolHasNoErrors Then
            strSpellCheck = "لا توجد أخطاء إملائية"
        End If

        MessageBox.Show(strCheck)

لاحظ أن هذا الكود يستخدم CheckSpelling أما الكود التالي فسيستخدم CheckGrammar للكشف عن الأخطاء النحوية

        Dim wordApp As New Word.Application
        Dim bolHasNoErrors As Boolean = _
            wordApp.CheckGrammar (TxtBx.Text)
        Dim strCheck As String = "هناك أخطاء نحوية"

        If bolHasNoErrors Then
            strCheck = "لا توجد أخطاء نحوية"
        End If

        MessageBox.Show(strCheck)

وفقكم الله للخير