VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - VB 中调用 Word 拼写检查
发表评论(0)作者:, 平台:, 阅读:13623, 日期:2000-04-06
VB 中调用 Word 拼写检查

Function CheckSpell(IncorrectText as string) as string

Dim Word As Object, retText$

On Error Resume Next

' 建立对象并打开 WORD

Set Word = CreateObject("Word.Basic")


' 把需要检查的 STRING 放到 WORD

Word.AppShow

Word.FileNew

Word.Insert IncorrectText


' 运行 WORD 拼写检查

Word.ToolsSpelling

Word.EditSelectAll


' 取返回值

retText = Word.Selection$()

CheckSpell = Left$(retText, Len(retText) - 1)


'关闭文件并回到 VB 应用

Word.FileClose 2

Show


Set Word = Nothing

End Function