正文

VB 中调用 Word 拼写检查 2005-10-15 12:15:00

【评论】 【打印】 【字体: 】 本文链接:http://blog.pfan.cn/iamben250/6054.html

分享到:

VB 中调用 Word 拼写检查
作者: 评价: 上站日期: 2001-09-06
内容说明:
来源:

 
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  

 

阅读(2012) | 评论(0)


版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!

评论

暂无评论
您需要登录后才能评论,请 登录 或者 注册