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

本實例備有具體的正文，贊助讀者懂得，另外讀者還可以在本實例的基本上參閱其他材料做進一步的改良，以完成更加壯大的功效！