nkbsky
Messages postés2Date d'inscriptiondimanche 3 mai 2009StatutMembreDernière intervention27 juillet 2009 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