How to use the Spelling Corrector tool of MS Word within VB If you would like to incorporate a Spellings Corrector in your VB app, it would take you quite a long time, this trick shows you in a simple example how to use MS Word磗 Spelling
How to use the Spelling Corrector tool of MS Word within VB
If you would like to incorporate a Spellings Corrector in your VB app, it would take you quite a long time, this trick shows you in a simple example how to use MS Word磗 Spelling Corrector within VB.
Create a new project with one form. Put a CommandButton and a TextBox on it.
Set the following properties of the textbox:
"Height = a couple of lines" Multiline=true ScrollBars=Vertical
Code
Private Sub Command1_Click()
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
注释：oclearcase/" target="_blank" >ccupied memory
Set Word = Nothing
End FunctionI used WordBasic because that way you can also use this tip with older versions of Word as well.
原文转自：http://www.ltesting.net