by vipin jain (2 Submissions)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 25th February 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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.
VBcoders
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
No comments have been posted about This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a featur. Why not be the first to post a comment about This code will make use of the Spell Check doalog box Of MSWord in Visual Basic and impart a featur.