GetAlternate(ByVal word As String, ByVal Alternates As Variant) As Boolean
|
Function:
|
|
|
|
returns a list with alternate words.
|
|
|
|
|
|
|
|
|
|
|
         
|
Syntax:
|
|
|
|
|
JRSpell1.GetAlternatexWord, xAlternate
|
|
|
xWord
|
return a alternate for this word.
|
|
|
xAlternate
|
list with alternate words.
|
|
|
|
|
|
|
|
|
|
       
|
  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
|
|
|