VBGood网站全文搜索 Google

搜索VBGood全站网页(全文搜索)
首页 - 经验之谈 - 使用Word的拼写检查和拼写建议功能
发表评论(0)作者:BUILDER.COM, 平台:VB6.0+Win98, 阅读:10709, 日期:2003-08-29
    许多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过程将继续运行。