VB中调用Word拼写检查

王朝vb·作者佚名  2008-05-21
窄屏简体版  字體: |||超大  

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

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航