Set objSpellCheck = Server.CreateObject("SpellCheck.ClsChecker")
如我前面提到的，这个组件提供了拼写检查和词典的功能。首先，来看看如何返回给定单词的一系列同义词。这要使用到LookupSynonym方法，该方法需要一个参数，就是需要寻找同义词的单词。执行后，拼写检查对象收集相关的单词到集合对象SynonymWords。执行下面的代码，将返回“Quick”单词的所有同义词：
< %
Dim objSpellChecker, iLoop
’Create an instance of the SpellChecker
Set objSpellCheck = Server.CreateObject("SpellCheck.ClsChecker")
objSpellChecker.UseMSWord = False ’We’re not using MSWord
objSpellChecker.LookupSynonym "Quick" ’Lookup the synonym for "quick"
’Loop through the returned words:
Response.Write "The following synonyms for ’Quick’ exist: "
For iLoop = 1 To objSpellChecker.SynonymWords("Quick").SuggestedWords.Count
