• Home
 · 
• Files/File Controls/Input/Output
 · 
• Spell-check a Text box using MS Word's spellchecker.

Spell-check a Text box using MS Word's spellchecker.

Spell-check a Text box using MS Word's spellchecker.

API Declarations


Global bSelected As Boolean




Rate Spell-check a Text box using MS Word's spellchecker.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Set objWord = CreateObject("Word.Basic")
objWord.FileNew
objWord.EditClear
' spell check only the selected text
If Text1.SelText <> "" Then
bSelected = True
objWord.Insert Text1.SelText
Else 'spell check all text in the box.
objWord.Insert Text1.Text
End If
objWord.StartOfDocument
objWord.EndOfDocument (1)
objWord.ToolsSpelling
objWord.StartOfDocument
objWord.EndOfDocument (1)
objWord.EditCut
With Text1
If bSelected Then
.Text = Left$(.Text, .SelStart) & Clipboard.GetText(1) & Right$(.Text, Len(.Text) - (.SelStart + .SelLength))
Else
.Text = Clipboard.GetText(1)
End If
' closes MS Word
objWord.FileClose (2)
.SetFocus
End With
objWord.FileQuit
Set objWord = Nothing
Text1.SetFocus
Exit Sub
ERRC:
Resume Next

' Note: large amounts of text will cause MS Word to ask if you want to save what's in the clipboard for later use.
' This works for Rich Text Boxes and in Word 2000.