Correcteur d'orthographe

Question

Bonjour,

Je ne trouve pas sur le net comment faire pour avoir une correction d'orthographe dans une TextBox.

Je m'explique, j'ai une form avec des textBox de saisie.
Et je voudrais savoir comment faire pour qu'il y est un correcteur d'orthographe en sachant que je ne posède par Word

Toute les saisie sont transmis dans une "Label" puis envoyer par email avec ce code:
Private Sub Command1_Click()
Dim AGENT As String
AGENT = "Agents:" & Chr$(13) & Combo1 & Chr$(13) & Combo2 & Chr$(13) & Combo3 & Chr$(13) & Combo4 & Chr$(13) & Combo5
Form1!Label2 = AGENT
'contenu du presse papier
Dim Adresse As String
Dim Contenu As String
Dim Ligne() As String
Dim n As Integer
Dim emailsubject As String
Dim emailmsg As String
Dim emaildest As String
On Error GoTo Gestion_Erreur
Dim renvois As String
        emailsubject = "Rapport des évènements du  " & Date  'Demande du sujet du message
        emailmsg = "Bonjour," & Chr$(13) & "veuillez trouver ci-dessou le rapport des évènements qui nous ont été communiqué" & Chr$(13) & Chr$(13) & Form1!lab1 & Chr$(13) & Form1!lab2 & Chr$(13) & Form1!lab3 & Chr$(13) & Form1!lab4 & Chr$(13) & Form1!lab5 & Chr$(13) & "Cordialement" & Chr$(13) & Chr$(13) & Form1!Label2    'Demande du contenu du message
        emaildest = acceuil!Label9  'Demande de l'adresse email
        Dim ObjOutl As Object   'Déclaration des objets
        Dim objSession As Object
             Dim ObjMessage As Object
            Set ObjOutl = CreateObject("Outlook.Application")   'Création de l'objet Outlook
            Set objSession = ObjOutl.GetNamespace("MAPI")   'Création de l'objet de gestion des message
            Set ObjMessage = ObjOutl.CreateItem(0)   'Ajout d'un item pour le message
            objSession.Logon   'Connection à Outlook
            With ObjMessage
                .To = emaildest
                .CC = ""
                .Subject = emailsubject
                .Body = emailmsg
                .Send             
            End With

        'Suppression des objets (Vidage)
        Set ObjMessage = Nothing
        objSession.Logoff
        Set objSession = Nothing
        Set ObjOutl = Nothing
        
Unload Rapport1
Unload Rapport2
Unload Rapport3
Unload Rapport4
Unload Rapport5
MsgBox " Les rapport ont étés envoyé"
Gestion_Erreur:
'MsgBox ""
Unload Form3
End Sub


Merci de votre aide

Mayzz · Answer

Oulala, cela me semble complexe, d'autant plus en vb6...

Commence par remplacer ton textbox par un richtextbox... et pour le reste à moins de trouver un composant gratuit (regarde dans les sources en vb6 on ne sait jamais), Bon courrage !!

++ Mayzz.

Si le déboguage est l'art d'enlever les bogues, la programmation doit être l'art de les créer.

cs_Jack · Answer

Salut
Déjà avec Word ça me paraitrait difficile à faire, alors sans les compléments de Word ...

vinvinsylvain · Answer

J'ai trouver ceci qui fonction mais il y a un mais:
Private Sub Command1_Click()

    Text5.Text = VerifOrthographe(Text5.Text)

End Sub

Public Function VerifOrthographe(TxtVérif As String) As String
    'Cette fonction ouvre un projet (invisible) Microsoft Word
    'et utilise le vérificateur d'othographe.
    'Les corrections sont récupérées.
    
    'Variables
    Dim ObjMSWord As Object
    Dim TxtProv As String
    
    'Y a-t'il du texte à vérifier ?
    If TxtVérif = "" Then
        MsgBox "Rien à vérifier !", vbExclamation
        Exit Function
    End If
    
    'Pointeur "sablier"
    Screen.MousePointer = 11
    
    'Définition de l'objet Word et appel de l'outil de vérification de l'orthographe
    Set ObjMSWord = CreateObject("Word.Basic")
    With ObjMSWord
        .FileNew
        .Insert TxtVérif
        .ToolsSpelling ObjMSWord.EditSelectAll
        .SetDocumentVar "TexteAVerifier", ObjMSWord.Selection
    End With
    
    'Récupération du texte (corrigé) après vérification
    TxtProv = ObjMSWord.GetDocumentVar("TexteAVerifier")
    TxtProv = Left(TxtProv, Len(TxtProv) - 1)
    
    If TxtProv = "" Then
        'Opération annulée par l'utilisateur
        VerifOrthographe = TxtVérif
    Else
        VerifOrthographe = TxtProv
    End If
    
    'Fermeture du document provisoire et de Word
    ObjMSWord.FileCloseAll 2
    ObjMSWord.AppClose
    Set ObjMSWord = Nothing
    
    'Pointeur standard
    Screen.MousePointer = 0
    
    'Message en cas de bon déroulement de l'opération
    If TxtProv = "" Then
        MsgBox "Vérification ignorée !", vbExclamation
    Else
        MsgBox "Vérification terminée !", vbInformation
    End If
      
End Function



Le mais s'est que la fenêtre de conrection ce trouve en arrière plan donc on ne peut l'utiliser le correcteur et bloc le programme.

Peux-t'on utiliser cette fonction en premier plan?

Et peux-t'on remplacer word par un logiciel open office?

vinvinsylvain · Answer

J'ai trouver

Public Function VerifOrthographe(TxtVérif As String) As String
Let Me.WindowState = vbMinimized
Let acceuil.WindowState = vbMinimized
Let Rapport1.WindowState = vbMinimized
Let Rapport2.WindowState = vbMinimized
Let Rapport3.WindowState = vbMinimized
Let Rapport4.WindowState = vbMinimized
Let Rapport5.WindowState = vbMinimized
    'Cette fonction ouvre un projet (invisible) Microsoft Word
    'et utilise le vérificateur d'othographe.
    'Les corrections sont récupérées.
    
    'Variables

    Dim openwriter As Object
    Dim TxtProv As String
    
    'Y a-t'il du texte à vérifier ?
    If TxtVérif = "" Then
        MsgBox "Rien à vérifier !", vbExclamation
        Exit Function
    End If
    
    'Pointeur "sablier"
    Screen.MousePointer = 11
    
    'Définition de l'objet Word et appel de l'outil de vérification de l'orthographe
    Set openwriter = CreateObject("Word.Basic")
    With openwriter
        .FileNew
        .Insert TxtVérif
        .ToolsSpelling openwriter.EditSelectAll
        .SetDocumentVar "TexteAVerifier", openwriter.Selection
    End With
    
    'Récupération du texte (corrigé) après vérification
    TxtProv = openwriter.GetDocumentVar("TexteAVerifier")
    TxtProv = Left(TxtProv, Len(TxtProv) - 1)
    
    If TxtProv = "" Then
        'Opération annulée par l'utilisateur
        VerifOrthographe = TxtVérif
    Else
        VerifOrthographe = TxtProv
    End If
    
    'Fermeture du document provisoire et de Word
    openwriter.FileCloseAll 2
    openwriter.AppClose
    Set openwriter = Nothing
    
    'Pointeur standard
    Screen.MousePointer = 0
    
    'Message en cas de bon déroulement de l'opération
    If TxtProv = "" Then
        MsgBox "Vérification ignorée !", vbExclamation
    Else
        MsgBox "Vérification terminée !", vbInformation
    End If
Let acceuil.WindowState = vbNormal
Let Rapport1.WindowState = vbNormal
End Function


Merci

jmf0 · Answer

Et je voudrais savoir comment faire pour qu'il y est un correcteur d'orthographe en sachant que je ne posède par Word 

et :
J'ai trouver 

'Cette fonction ouvre un projet (invisible) Microsoft Word
    'et utilise le vérificateur d'othographe.
    'Les corrections sont récupérées.

Tu peux nous expliquer cette étrangeté ?
Je vois par ailleurs que tu utilises "Word Basic" (un sacré aïeul.... Il est sur ta machine ? )

vinvinsylvain · Answer

Bonsoir,

ben en faite j'ai pas eut le choix car je ne trouvais absolument aucune solution.

Donc il faudra que j'installe word sur la machine qui utilisera mon application.

A moin que quelqu'un aurai une autre solution, voir avec openoffice

jmf0 · Answer

Donc et pour conclure :
Ta solution n'est pas la solution au problème, tel que posé !
Et pour conclure un peu plus : décoche ta trompeuse "réponse acceptée" qui risque d'en tromper plus d'un !!!

Correcteur d'orthographe

7 réponses

Votre réponse

Discussions similaires