حول القاموس الخاص ب MS-word

أتمنى أن يفيدك هذا الجزء من موضوع الأخ عبد الرحمن دروس شبه يومية " الموجود في أعلى صفحة مواضيع هذا المنتدى ....

اقتباس

التدقيق الاملائي

سنتعلم اليوم فكرة جميلة جدا و مفيدة و هي التدقيق الاملائي للنص . بالطبع

لن نقوم بعمل فهرس للكلمات و لكن سنقوم باستدعاء المدقق الاملائي لبرنامج الوورد . و سنقوم بعمل برنامج لا يقوم بالتدقيق الاملائي و حسب , وانما يعطيك المقترحات للكلمات الخاطئة .

في البداية ابدا مشروع ويندوز جديد , ثم اضف زري امر 2 buttons , لستتين 2 listbox , مربع نص textbox .

ثم من قائمة Project اختر Add Reference . من علامة التبويب com ا ختر العنصر Microsoft Word 10 Object Library (طبعا لازم تكون مركب الوورد)

ثم اضغط OK

و اليك الكود مع الشرح

هذا الكود تحت زر الامر رقم واحد

    



        'يمثل هذا المتغير برنامج الوورد

        public WordApp As New Word.Application()



Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click



        ' يمثل هذا المتغير النص المكتوب

        Dim DRange As Word.Range





        Me.Text = "Starting Word ..."



        'اضافة مستند جديد

        WordApp.Documents.Add()



        Me.Text = "Checking words..."



        ' تعرف النص المكتوب الحالي و الموجود في المستند الذي اضفناه

        DRange = WordApp.ActiveDocument.Range



        'ادخال النص المكتوب في مربع النص الى المستند

        DRange.InsertAfter(TextBox1.Text)



        'يمثل هذا المتغير الاخطاء الاملائية

        Dim SpellCollection As Word.ProofreadingErrors



        'تعريف الاخطاء الاملائية المكتوبة في النص

        SpellCollection = DRange.SpellingErrors



        'اذا كانت هناك اخطاء املائية في النص

        If SpellCollection.Count > 0 Then



            Dim iword As Integer

            Dim newWord As String



            '  حلقة تكرارية تضيف جميع الاخطاء الاملائية الى اللستة

            For iword = 1 To SpellCollection.Count

                newWord = SpellCollection.Item(iword).Text

                ListBox1.Items.Add(newWord)

            Next

        End If



        Me.Text = "Word spelling Demo"



    End Sub

الكود السابق يقوم بفحص النص المكتوب في مربع النص , ثم يقوم بادراج الكلمات الخاطئة (الغير معرفة في فهرس الوورد) الى اللستة رقم واحد .

و ساقوم باضافة الجزء الثاني في الدرس القادم إن شاء الله و هو عن كيفية استدعاء المقترحات للاخطاء الاملائية .

اذا كان لديك أي استفسار عن الكود السابق يمكنك مشاهدة الموضوع .....