VB调用Word拼写检查功能实例

这篇文章主要介绍了VB调用Word拼写检查功能,非常实用的功能,需要的朋友可以参考下

众所周知，Word有自带的拼写检查功能。VB中想要实现调用 Word 拼写检查功能其实很简单就可以实现，方法是先建立word对象，然后把需要检查的字符串放到 WORD中，调用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)

									'关闭文件

									Word.FileClose 2 

									Show

									Set Word = Nothing

									End Function