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

众所周知，Word有自带的拼写检查功能。VB中想要实现调用Word拼写检查功能其实很简单就可以实现，方法是先建立word对象，然后把需要检查的字符串放到WORD中，调用word拼写检查，再取出返回值，最后关闭对象。

各个步骤的具体实现代码如下所示：

FunctionCheckSpell(IncorrectTextasstring)asstring
DimWordAsObject,retText$
OnErrorResumeNext
"建立WORD对象并打开
SetWord=CreateObject("Word.Basic")

"把需要检查的STRING放到WORD
Word.AppShow
Word.FileNew
Word.InsertIncorrectText

"调用WORD拼写检查
Word.ToolsSpelling
Word.EditSelectAll

"得到返回值
retText=Word.Selection$()
CheckSpell=Left$(retText,Len(retText)-1)

"关闭文件
Word.FileClose2
Show

SetWord=Nothing
EndFunction

本实例备有详细的注释，帮助读者理解，此外读者还可以在本实例的基础上参阅其他资料做进一步的改善，以实现更为强大的功能！