Visual Basic - CheckSpelling y GetSpellingSuggestions: Problemas

Life is soft - evento anual de software empresarial
   
Vista:

CheckSpelling y GetSpellingSuggestions: Problemas

Publicado por Cristian Martinez (1 intervención) el 21/10/2007 02:30:34
Estoy haciendo un juego donde tenés que escribir palabras sin errores (Y otras cosas más, pero no tiene que ver con mi consulta) y escribo palabras erróneas (Ej: "Arania" me lo considera correcto, y en el mismo Word no), y CheckSpelling me las considera correctas, inclusive con las inexistentes (Por ejemplo, me consideró correcta "Ahgruighwyi"). Uso Visual Basic 6.0 y Word 2003

Este es el código:
--------------------------------------------------------------------------------------------------------------------------
For i = 1 To 6
If txtPlayerWord(i).ForeColor <> vbBlack Then GoTo salteo
texto = Trim$(txtPlayerWord(i).Text)
If MSWord.CheckSpelling(texto, IgnoreUppercase:=True) Then
txtPlayerWord(i).ForeColor = &HC000&
ElseIf Not MSWord.CheckSpelling(texto) Then
Set colSuggestions = MSWord.GetSpellingSuggestions(texto)
If colSuggestions.Count <> 0 Then
txtPlayerWord(i).ForeColor = &H80FF&
Points(i) = Points(i) + frmMainWords.badwriting
lblPlayer(i).Caption = "Jugador " & i & " (" & Points(i) & ")"
Else
txtPlayerWord(i).ForeColor = vbRed
Points(i) = Points(i) + frmMainWords.nonexisting
lblPlayer(i).Caption = "Jugador " & i & " (" & Points(i) & ")"
End If
End If
salteo:
Next i
---------------------------------------------------------------------------------------------------------------------------

Para que me digan la solución les digo cómo quiero que funcione:

Hay una caja de texto con una palabra (Que va a ser guardada en la variable texto) (En bucle de 6 porque son 6 cajas) que va a ser analizada. Si es correcta, la marca con verde y listo. Ahí está el problema principalmente, ya que me considera todo correcto. Luego, si hay sugerencias, el juego considera incorrecta a la palabra de la caja de texto. Si no hay sugerencias, la considera inexistente

¿Qué es lo que ocurre?

Desde ya, muchas gracias a quien encuentre la solución a mi problema
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