VÉRIFICATEUR D'ORTHOGRAPHE

Signaler
Messages postés
363
Date d'inscription
jeudi 20 décembre 2001
Statut
Membre
Dernière intervention
25 août 2003
-
Messages postés
2
Date d'inscription
vendredi 23 janvier 2004
Statut
Membre
Dernière intervention
21 février 2011
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/2385-verificateur-d-orthographe

Messages postés
2
Date d'inscription
vendredi 23 janvier 2004
Statut
Membre
Dernière intervention
21 février 2011

Excellent ! C'est efficace et en quelques lignes de Code seulement! Super boulot ! et facile à intégrer dans ses propres sources...
Messages postés
9
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
28 juin 2010

Merciiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii
Messages postés
20
Date d'inscription
mardi 16 mai 2000
Statut
Membre
Dernière intervention
1 mai 2007

Ca peut être utile ! Merci.
Messages postés
463
Date d'inscription
vendredi 15 août 2003
Statut
Membre
Dernière intervention
21 avril 2010

je viens de trouvé une autre methode de correction avec le dico word , elle renvoie une liste de suggestions du style click droit sur le mot mal orthographié, existe aussi pour la grammaire :

Imports Microsoft.Office
Public Class ortoword
Public Function VerifOrthographe(ByRef TxtVérif As String)
Dim ResultatSug() As String = Nothing
Try
Dim MsWApp As New Interop.Word.Application
Dim MsWDoc As New Interop.Word.Document
Dim sugList As Interop.Word.SpellingSuggestions
Dim sug As Interop.Word.SpellingSuggestion
Dim strSugList As String = Nothing
sugList = MsWDoc.Application.GetSpellingSuggestions(Word:=TxtVérif, _
SuggestionMode:=0)
If sugList.Count = 0 Then
'MsgBox("No suggestions.")
Else
For Each sug In sugList
strSugList &= sug.Name & vbLf
Next sug
'MsgBox("The suggestions for this word are: " _
' & vbLf & strSugList)
ResultatSug = Split(strSugList, vbLf)
End If
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Finally
'Pointeur standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Try
VerifOrthographe = ResultatSug
End Function
Afficher les 13 commentaires