Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$ 
On Error Resume Next 
'建立WORD對(duì)象并打開
Set Word = CreateObject("Word.Basic")

'把需要檢查的 STRING 放到 WORD
Word.AppShow
Word.FileNew
Word.Insert IncorrectText

'調(diào)用WORD 拼寫檢查 
Word.ToolsSpelling
Word.EditSelectAll

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

'關(guān)閉文件
Word.FileClose 2 
Show

Set Word = Nothing
End Function