En VB puedo destacar los errores ortográficos poniendo esas palabras en color rojo. Lo hago con el siguiente código:
Código: Seleccionar todo
Sub correct()
' Adaptat de Joaquim Fonoll 25/01/2004
' detecta els errors de tot el text i posa les paraules en vermell
'
Dim MyErr, MyErrors, range1
System.Cursor = wdCursorWait
If correc = True Then
Set MyErrors = ActiveDocument.SpellingErrors
If MyErrors.Count <> 0 Then
For Each MyErr In MyErrors
MyErr.Font.ColorIndex = wdRed
Next
End If
correc = False
Else
Set range1 = ActiveDocument.Range
range1.Font.ColorIndex = wdAuto
correc = True
correct
End If
System.Cursor = wdCursorNormal
End Sub
Ambrosio