Seperti yang kita ketahui bersama, Word memiliki fungsi pemeriksa ejaannya sendiri. Di VB sebenarnya sangat mudah untuk memanggil fungsi pemeriksa ejaan Word. Caranya adalah dengan membuat objek kata terlebih dahulu, kemudian memasukkan string yang perlu diperiksa ke dalam WORD, memanggil pemeriksa ejaan kata, lalu mengeluarkan nilai yang dikembalikan. , dan terakhir tutup objeknya.
Kode implementasi spesifik dari setiap langkah adalah sebagai berikut:
Fungsi CheckSpell(IntrueText as string) sebagai stringDim Word As Object, retText$ On Error Resume Next 'Buat objek WORD dan buka Set Word = CreateObject("Word.Basic")'Masukkan STRING yang perlu dicek ke WORDWord.AppShowWord .FileNewWord.Masukkan IntrueText'Panggil WORD spelling checkWord.ToolsSpellingWord.EditSelectAll'dapatkan nilai kembalian retText = Word.Selection$()CheckSpell = Left$(retText, Len(retText) - 1)'Tutup fileWord.FileClose 2 ShowSet Word = NothingEnd FunctionContoh ini dilengkapi dengan komentar mendetail untuk membantu pembaca memahaminya. Selain itu, pembaca dapat merujuk ke materi lain berdasarkan contoh ini untuk melakukan perbaikan lebih lanjut guna mencapai fungsi yang lebih canggih!