GetOtherWords(MisspelledWord As String) As String
|
Funktion:
|
|
|
|
gibt eine Liste mit alternativen zu einem Wort für einen eigenen Korrekturdialog zurück.
|
|
|
|
|
|
|
|
|
|
|
|
Syntax:
|
|
|
|
|
JRSpell1.GetOtherWords xWord
|
|
|
xWord
|
Wort für welches alternativen gesucht werden.
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Rückgabewert:
|
|
|
|
|
Komma separierte Wortliste.
|
|
|
Beispiel:
|
|
|
    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
|
|
|