VB調用Word拼寫反省功用實例

VB調用Word拼寫反省功用實例。本站提示廣大學習愛好者：（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

本實例備有詳細的正文，協助讀者了解，此外讀者還可以在本實例的根底上參閱其他材料做進一步的改善，以完成更為弱小的功用！