Visual Basic.NET - Como agregar diccionario a GetSpellingSuggestions?

   
Vista:

Como agregar diccionario a GetSpellingSuggestions?

Publicado por sergio  (7 intervenciones) el 26/03/2009 18:37:17
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(iWord).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
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Como agregar diccionario a GetSpellingSuggestio

Publicado por sergio (1 intervención) el 26/03/2009 19:04:15
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.wdFrench).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?
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Como agregar diccionario a GetSpellingSuggestio

Publicado por ser (1 intervención) el 27/03/2009 11:06:13
Solucionado : http://support.microsoft.com/kb/292108/es
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar