VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 在VB中如何试用MS Word的拼写检查工具
发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:8073, 日期:2001-04-11
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.