ดังที่เราทุกคนรู้ Word มีฟังก์ชันตรวจสอบการสะกดของตัวเอง ใน VB จริงๆ แล้วการเรียกใช้ฟังก์ชันตรวจสอบการสะกดคำนั้นง่ายมาก วิธีการคือสร้างอ็อบเจ็กต์คำก่อน จากนั้นจึงใส่สตริงที่ต้องตรวจสอบลงใน WORD เรียกการตรวจสอบการสะกดคำ จากนั้นนำค่าที่ส่งคืนออกมา และปิดวัตถุในที่สุด
รหัสการใช้งานเฉพาะของแต่ละขั้นตอนมีดังนี้:
ฟังก์ชั่น CheckSpell (IncorrectText as string) as stringDim Word As Object, retText$ On Error Resume Next 'สร้างวัตถุ WORD และเปิด Set Word = CreateObject("Word.Basic")'ใส่ STRING ที่ต้องตรวจสอบใน WORDWord.AppShowWord .FileNewWord. แทรก IncorrectText'Call WORD การสะกดคำ checkWord.ToolsSpellingWord.EditSelectAll'รับค่าที่ส่งคืน retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'ปิดไฟล์Word.FileClose 2 ShowSet Word = NothingEnd Functionตัวอย่างนี้มีความคิดเห็นโดยละเอียดเพื่อช่วยให้ผู้อ่านเข้าใจ นอกจากนี้ ผู้อ่านยังสามารถอ้างอิงถึงเนื้อหาอื่นๆ บนพื้นฐานของตัวอย่างนี้เพื่อทำการปรับปรุงเพิ่มเติมเพื่อให้ได้ฟังก์ชันที่มีประสิทธิภาพมากขึ้น!