VB 中调用 Word 拼写检查

跳转到页

世界如此多姿，发展如此迅速，窥一斑未必还能知全豹。但正如万花筒一样，每一个管窥都色彩斑斓。

本文对应知识领域

VB 中调用 Word 拼写检查
作者：未知申领版权
2010年11月15日共有 780 次访问【添加到收藏夹】【我要附加题目】

受欢迎度：

    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

相关新闻

您可能对这些感兴趣
用VB做定时断线程序 VisualBasic中的界面设计原则和编程技巧 VB6.0与Windows API 间的呼叫技巧制作可以自动隐藏的弹出式菜单 ListBox中的字符串超长显示的解决方法 VB中的Unicode 和 Ansi 格式优化程序显示速度 Visual Basic 产生渐层的 Form 背景用VB实现客户——服务器（TCP/IP) 用VB制作注册软件的方法

题目筛选器

日期：
类型：
状态：
得分：	<= 分
分类：
作者：
职业：
关键字：
搜索