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
| | | |
|
 |
阅读(2011) | 评论(0)
版权声明:编程爱好者网站为此博客服务提供商,如本文牵涉到版权问题,编程爱好者网站不承担相关责任,如有版权问题请直接与本文作者联系解决。谢谢!
评论