Como poner diccionario a GetSpellingSuggestions?

[chascos69]

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

[chascos69]

He conseguido que no pete: Ahora tengo esto:
Private Function EsPalabraIncorrecta(ByVal m_strWord As String) As Boolean
'SelecccionarDiccionario(m_strWord)
'Dim d As Microsoft.Office.Interop.Word.Dictionary
Dim Dic As String '= "French (France)"
Dim m_listOfAlternateWords As Word.SpellingSuggestions

Dic = aplicacionWord.Languages(Word.WdLanguageID.wdFrenc h).NameLocal
Dim s As String = "belgium"
m_listOfAlternateWords = aplicacionWord.GetSpellingSuggestions(Word:=s, CustomDictionary:="", MainDictionary:=Dic) 'CustomDictionary:="Custom.dic", MainDictionary:=Dic)

If (m_listOfAlternateWords.Count > 0) Then
Return True
Else
Return False
End If
End Function

Pero no me da resultados cuando debería... es cmo si no cogiera el diccionario que le paso... pq?

[chascos69]

Solucionado: http://support.microsoft.com/kb/292108/es