Correcteur orthographique
marielief
Messages postés
1
Date d'inscription
mardi 21 janvier 2003
Statut
Membre
Dernière intervention
21 janvier 2003
-
21 janv. 2003 à 10:07
nkbsky Messages postés 2 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 27 juillet 2009 - 27 juil. 2009 à 09:31
nkbsky Messages postés 2 Date d'inscription dimanche 3 mai 2009 Statut Membre Dernière intervention 27 juillet 2009 - 27 juil. 2009 à 09:31
A voir également:
- Vscode correcteur orthographique
- Correcteur de ponctuation - Forum PHP
- Includepath vscode - Forum C / C++ / C++.NET
- CORRECTEUR D ORTHOGRAPHE ✓ - Forum Javascript / DHTML
- Police vscode - Forum C# / .NET
- Retour à la ligne vscode - Forum VB.NET
2 réponses
nkbsky
Messages postés
2
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
27 juillet 2009
27 juil. 2009 à 09:29
27 juil. 2009 à 09:29
Text1.Text = VerifOrthographe(Text1.Text) la source de j ray
nkbsky
Messages postés
2
Date d'inscription
dimanche 3 mai 2009
Statut
Membre
Dernière intervention
27 juillet 2009
27 juil. 2009 à 09:31
27 juil. 2009 à 09:31
Private Sub BtnVérif_Click()
Text1.Text = VerifOrthographe(Text1.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
Text1.Text = VerifOrthographe(Text1.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
