| Como poner diccionario a GetSpellingSuggestions?
Estoy ya desesperado con esto .. he mirado en todos los sitios de internet que he podido y no hay manera
Esta es mi función:
Private Sub ListBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ListBox1.SelectedIndexChanged
Dim CorrectionsCollection As Word.SpellingSuggestions
Dim MainDict As String = Languages(wdFrench).NameLocal
CorrectionsCollection = _
WordApp.GetSpellingSuggestions(ListBox1.Text, , , MainDict)
ListBox2.Items.Clear()
If CorrectionsCollection.Count > 0 Then
Dim iWord As Integer
For iWord = 1 To CorrectionsCollection.Count
ListBox2.Items.Add(CorrectionsCollection.Item(iWor d).Name)
Next
Else
ListBox2.Items.Add("No suggestions!")
End If
End Sub
WordApp.Languages.count tiene lenguajes pero cuando haces un WordApp.Languages(0) te dice que no existe ninguno.... ???
Como le paso el diccionario pues?
Gracias |