Correcteur d'orthographe gràce à word

Télécharger le projet
Commenter

Description

Voici ma première source :
Rien de bien compliqué, mais je n'est pas trouvé la même chose en VB.net
Il suffit d'appeler la fonction avec le texte à vérifier:

Dim ORTO As New Word_Orthographe.Orthographe
ORTO.texte = RichTextBox1.Text
ORTO.verifier()
RichTextBox1.Text = ORTO.texte

Source / Exemple : 


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

Conclusion :


A oui, j'ai référence Microsoft object 12 mais bien sur on peut changer...
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.