GetOtherWords(Misspelledword As String) As String
|
Function:
|
|
|
|
returns a list with alternate words for a own correction dialog.
|
|
|
|
|
|
|
|
|
|
|
         
|
Syntax:
|
|
|
|
|
JRSpell1.GetOtherWords xWord
|
|
|
xWord
|
return a alternate list for this word.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
       
|
  Return value:
|
|
|
|
|
comma separated word list.
Fires no event.
|
|
|
Example:
|
|
|
    Reflist=JRSpell1.GetOtherWords(LastMisspelledWord)     Suggestions = Split(Reflist, ",")     List1.Clear     Err = 0     On Error Resume Next     Sugcount = UBound(Suggestions)     If Err = 0 Then         For n = 0 To Sugcount           If Suggestions(n) <> "" Then             List1.AddItem Suggestions(n)           End If         Next n     End If
|
|
|