在VB中如何试用MS Word的拼写检查工具

领测软件测试网

　　 
　　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
注释：occupied memory

Set Word = Nothing
End FunctionI used WordBasic because that way you can also use this tip with older versions of Word as well.

文章来源于领测软件测试网 https://www.ltesting.net/