Zur Startseite

JRSpellChecker

Zur Homepage

GetAlternate(ByVal word As String, ByVal Alternates As Variant) As Boolean

Function:

returns a list with alternate words.

         

ico_syntax Syntax:

JRSpell1.GetAlternatexWord, xAlternate

xWord

return a alternate for this word.

xAlternate

list with alternate words.

       

ico_weitere   Return value:


True if alternates was found.

Fires no event.

Example:

    Public Function getotherwords()

    Dim ref As String
    Dim     xword As String
    Dim tested As Boolean
    Dim     alternativ As Variant
    Dim n As Integer

    List1.Clear

    If Form1.JRSpell1.GetAlternate(lastmisspelledword, alternativ) Then
      On Error Resume Next
      For n = 0 To UBound(    alternativ)
        List1.AddItem     alternativ(n)
      Next n
    End If

    End Function