• Home
 · 
• Windows System Services
 · 
• This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a featur

This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a featur

This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a feature to VB that is not actually available.

Rate This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a featur

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

   Text1 = SpellCheck(Text1)
End Sub

Public Function SpellCheck(ByVal IncorrectText$) As String
Dim Word As Object, retText$
On Error Resume Next 'Create the Object and open Word
Set Word = CreateObject("Word.Basic") 'Change the active window to Word,_
                                      'and insert the text from Text1 into Word.
Word.AppShow
Word.FileNew

Word.Insert IncorrectText 'Runs the Speller Corrector

Word.ToolsSpelling
Word.EditSelectAll 'Trim the trailing character from the returned text.

retText = Word.Selection$()

SpellCheck = Left$(retText, Len(retText) - 1) 'Close the Document and return to Visual Basic.

Word.FileClose 2

Show     'Set the word object to nothing to liberate the'occupied memory

Set Word = Nothing

End Function