كما نعلم جميعًا، لدى Word وظيفة التدقيق الإملائي الخاصة به. في VB، من السهل جدًا استدعاء وظيفة التدقيق الإملائي لـ Word. تتمثل الطريقة في إنشاء كائن كلمة أولاً، ثم وضع السلسلة التي تحتاج إلى التدقيق في WORD، واستدعاء التدقيق الإملائي للكلمة، ثم إخراج القيمة المرجعة. وأخيرًا أغلق الكائن.
رمز التنفيذ المحدد لكل خطوة هو كما يلي:
الدالة CheckSpell (IncorrectText as string) as stringDim Word As Object، retText$ عند خطأ استئناف التالي 'إنشاء كائن WORD وفتح Set Word = CreateObject("Word.Basic")'ضع السلسلة التي يجب التحقق منها في WORDWord.AppShowWord .FileNewWord. أدخل IncorrectText'Call WORD التدقيق الإملائي Word.ToolsSpellingWord.EditSelectAll'احصل على القيمة المرجعة retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'أغلق الملفWord.FileClose 2 ShowSet Word = NothingEnd Functionيتم تزويد هذا المثال بتعليقات مفصلة لمساعدة القراء على الفهم، بالإضافة إلى ذلك، يمكن للقراء الرجوع إلى مواد أخرى على أساس هذا المثال لإجراء المزيد من التحسينات لتحقيق وظائف أكثر قوة!