使用Word的拼写检查和拼写建议功能

许多VB6开发者都知道可以用Word（Word97或者更高版本）实现程序的拼写检查功能。但是，你知道Word还可以向你提供拼写建议功能么？添加拼写检查和拼写建议是提高你的程序功能的一个简单而又不会花很多时间的途径。

你只需要调用Word.Application对象的GetSpellingSuggestions函数、向它传递需要检查的单词，就可以实现拼写建议功能。GetSpellingSuggestions函数返回一个拼写建议的集合。如果被检查的单词拼写正确，那么拼写建议集合为空；只有当单词拼写出错时，该函数才返回非空的拼写建议集合。

Public Function SpellCheckWord(ByVal Value As String, ByRef Suggestions As Variant) As Boolean Dim objWord As Word.Application Dim objWordSuggestions As Word.SpellingSuggestions Dim objDoc As Word.Document Dim intCount As Integer Set objWord = CreateObject("Word.Application") Set objDoc = objWord.Documents.Add() Set objWordSuggestions = objWord.GetSpellingSuggestions(Value) If objWordSuggestions.Count = 0 Then '==拼写正确 SpellCheckWord = True Else ReDim Suggestions(0 To objWordSuggestions.Count - 1) For intCount = 0 To objWordSuggestions.Count - 1 Suggestions(intCount) = _ objWordSuggestions.Item(intCount + 1).Name Next SpellCheckWord = False End If Set objWordSuggestions = Nothing Call objDoc.Close(wdDoNotSaveChanges) Set objDoc = Nothing Call objWord.Quit Set objWord = Nothing End Function

当使用该功能时，有几件事你需要注意。首先，要求你的程序有使用Word的许可。其次，为了得到拼写建议，至少需要打开一个Word文档。上面的代码是这样处理这种情况的：一旦建立了Word.Application对象，就立即添加一个Word文档。最后，当使用完该功能时要调用Word.Application对象的Quit方法，否则Word过程将继续运行。