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

2007-04-10　源自:　网友评论 0 条　进入视频教程

　　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.

上一篇： 用程序给标识字段（ID）赋值的一种简单实现方法
下一篇：在VB中如何使用ping命令。

评论　 点击查看

通行证密码 

匿名发表