スペルチェッカー 
スペルチェックを行います。
sWord = "hoge"
aLocale = CreateUnoStruct("com.sun.star.lang.Locale")
oChecker = CreateUnoService("com.sun.star.linguistic2.SpellChecker")
If Not oChecker.isValid(sWord, aLocale, Array()) Then
oAlter = oChecker.spell(sWord, aLocale, Array())
words = oAlter.getAlternatives()
s = ""
For i = 0 To UBound(words) step 1
s = s & words(i)
Next
msgbox s
End If
