CORRECTEUR D'ORTHOGRAPHE GRÀCE À WORD

Imports System.Runtime.InteropServices
Imports Microsoft.Office.Interop
Public Class Orthographe

    Private texte_value As String

    Public Property texte() As String
        Get
            texte = texte_value
        End Get
        Set(ByVal value As String)
            texte_value = value
        End Set
    End Property


    Public Sub verifier()
'on instancie Word
            Dim App As New Word.Application()

        If (texte.Length > 0) Then
                        'on rend invisible Word
            App.Visible = False
            'on va créer un document
            Dim doc As Word.Document = App.Documents.Add()
            'on y place le texte à vérifier
            doc.Words.First.InsertBefore(texte)

            'on lance le correcteur
            Dim spellErrorsColl As Word.ProofreadingErrors = doc.SpellingErrors
            doc.CheckSpelling()

            'on remet le texte
            texte = doc.Range(0, doc.Characters.Count - 1).Text

                   End If
 App.Quit(False)

    End Sub

End Class