VB 中调用 Word 拼写检查

页面导航:首页 > 软件编程 > vb.net > VB 中调用 Word 拼写检查

VB 中调用 Word 拼写检查

来源: 作者: 时间:2016-02-05 12:32 【

Function CheckSpell(IncorrectText as string) as stringDim Word As Object, retText$ On Error Resume Next 建立对象并打开 WORDSet Word = CreateObject("Word.Basic")

 

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

Tags:

文章评论

最 近 更 新
热 点 排 行
Js与CSS工具
代码转换工具

<