久久―日本道色综合久久,亚洲欧美精品在线,狼狼色丁香久久婷婷综合五月,香蕉人人超,日本网站黄,国产在线观看不卡免费高清,无遮挡的毛片免费

　　VB 中調(diào)用 Word 拼寫檢查

Function CheckSpell(IncorrectText as string) as string
Dim Word As Object, retText$
On Error Resume Next
　　注釋： 建立對(duì)象并打開 WORD
Set Word = CreateObject("Word.Basic")
　　注釋： 把需要檢查的 STRING 放到 WORD
Word.AppShow
Word.FileNew
Word.Insert IncorrectText

　　注釋： 運(yùn)行 WORD 拼寫檢查
Word.ToolsSpelling
Word.EditSelectAll

　　注釋： 取返回值
retText = Word.Selection$()
CheckSpell = Left$(retText, Len(retText) - 1)

　　注釋：關(guān)閉文件并回到 VB 應(yīng)用
Word.FileClose 2
Show

Set Word = Nothing
End Function