cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003
-
10 janv. 2002 à 08:40
cs_omega8
Messages postés2Date d'inscriptionvendredi 23 janvier 2004StatutMembreDernière intervention21 février 2011
-
26 mars 2011 à 21:07
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
cs_jray
Messages postés20Date d'inscriptionmardi 16 mai 2000StatutMembreDernière intervention 1 mai 2007 17 avril 2007 à 21:43
Ca peut être utile ! Merci.
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 15 févr. 2007 à 17:27
je viens de trouvé une autre methode de correction avec le dico word , elle renvoie une liste de suggestions du style click droit sur le mot mal orthographié, existe aussi pour la grammaire :
Imports Microsoft.Office
Public Class ortoword
Public Function VerifOrthographe(ByRef TxtVérif As String)
Dim ResultatSug() As String = Nothing
Try
Dim MsWApp As New Interop.Word.Application
Dim MsWDoc As New Interop.Word.Document
Dim sugList As Interop.Word.SpellingSuggestions
Dim sug As Interop.Word.SpellingSuggestion
Dim strSugList As String = Nothing
sugList = MsWDoc.Application.GetSpellingSuggestions(Word:=TxtVérif, _
SuggestionMode:=0)
If sugList.Count = 0 Then
'MsgBox("No suggestions.")
Else
For Each sug In sugList
strSugList &= sug.Name & vbLf
Next sug
'MsgBox("The suggestions for this word are: " _
' & vbLf & strSugList)
ResultatSug = Split(strSugList, vbLf)
End If
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Finally
'Pointeur standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Try
VerifOrthographe = ResultatSug
End Function
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 12 juil. 2006 à 23:24
Aucune idée, mais peut etre que tu devrais fouiller dans les parametres "par defaut" de word
ou bien dans les diferrentes propriétes de :
With ObjMSWord
.FileNew()
.Insert(TxtVérif)
.ToolsSpelling()
.EditSelectAll()
TxtProv = .Selection
End With
nymrolda
Messages postés12Date d'inscriptionlundi 5 avril 2004StatutMembreDernière intervention30 septembre 2008 10 juil. 2006 à 17:28
Cette source fonctionne aux poils !
Juste un petit problème, avec Office 2002, il place la langue du correcteur en Anglais États-Unis par défaut, est-il possible de modifier la langue du correcteur par défaut pour qu'elle soit français canada ?
Merci d'avance
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 20 oct. 2005 à 19:43
En fait j ai utilisé ce code pour verifié chaque cellules d un datagrid ca marche nickel sauf que aprés chaque verication de cellule j ai un messagebox verif terminé, un peut lour si il y a une centaine de cellule lol
Donc qui connait le moyent d enlever cette option de messagebox depuis vb
merci
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 20 oct. 2005 à 19:17
dsl j ai oublier d enlever le "Dim test As New Word.ApplicationClass" au debut car il sert a rien
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 20 oct. 2005 à 19:15
A y est j ai la reponse pour ceux que ca interesse et merci encore jray 10/10 sans conteste
voici donc ton code adapté pour le VB7 de .NET
Module ortoword
Public Function VerifOrthographe(ByRef 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 test As New Word.ApplicationClass
Dim TxtProv As String
'Y a-t'il du texte à vérifier ?
If TxtVérif = "" Then
MsgBox("Rien à vérifier !", MsgBoxStyle.Exclamation)
Exit Function
End If
'Définition de l'objet Word et appel de l'outil de vérification de l'orthographe
ObjMSWord = CType(CreateObject("Word.Basic"), Object)
With ObjMSWord
.FileNew()
.Insert(TxtVérif)
.ToolsSpelling()
.EditSelectAll()
TxtProv = .Selection
End With
'Récupération du texte (corrigé) après vérification
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()
ObjMSWord = Nothing
'Pointeur standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
'Message en cas de bon déroulement de l'opération
If TxtProv = "" Then
MsgBox("Vérification ignorée !", MsgBoxStyle.Exclamation)
Else
MsgBox("Vérification terminée !", MsgBoxStyle.Information)
End If
End Function
End Module
Bien sur ont est pas obliger de mettre ta function dans un module LoL
@++ et Bp
surfzoid
Messages postés463Date d'inscriptionvendredi 15 août 2003StatutMembreDernière intervention21 avril 2010 20 oct. 2005 à 16:37
Marche nickel sous VB6 et presque sous vb.net il y a semble t il la methode : "ToolsSpelling ObjMSWord.EditSelectAll" qui à evoluer et comme avec toute ces api y a pas l aide dynamique ni forcement toute l autocompletion ben c est rude
si tu as eut le courage de l adapter au point net tu m enleverai une enorme epine du pied LOL
@++ et BP
ludkill
Messages postés6Date d'inscriptionmercredi 14 août 2002StatutMembreDernière intervention12 juillet 2007 14 août 2002 à 23:04
Et ben je te felicite car ca je cherchais ce script afin de l'incruster dans un jeu que j'ai créé(le mot le plus long). Ben ca marche niquel alors merci beaucoup. Si je trouve le moyen de l'optimiser je te tiens au courant ;o) .
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 10 janv. 2002 à 08:42
bon ben ca marche !!!!!
BRAVO !!!!!!!
10/10 !
cs_shivan
Messages postés363Date d'inscriptionjeudi 20 décembre 2001StatutMembreDernière intervention25 août 2003 10 janv. 2002 à 08:40
pas testé si ca marche, mais si ca marche, un gros bravo !!!
26 mars 2011 à 21:07
28 juin 2010 à 12:19
17 avril 2007 à 21:43
15 févr. 2007 à 17:27
Imports Microsoft.Office
Public Class ortoword
Public Function VerifOrthographe(ByRef TxtVérif As String)
Dim ResultatSug() As String = Nothing
Try
Dim MsWApp As New Interop.Word.Application
Dim MsWDoc As New Interop.Word.Document
Dim sugList As Interop.Word.SpellingSuggestions
Dim sug As Interop.Word.SpellingSuggestion
Dim strSugList As String = Nothing
sugList = MsWDoc.Application.GetSpellingSuggestions(Word:=TxtVérif, _
SuggestionMode:=0)
If sugList.Count = 0 Then
'MsgBox("No suggestions.")
Else
For Each sug In sugList
strSugList &= sug.Name & vbLf
Next sug
'MsgBox("The suggestions for this word are: " _
' & vbLf & strSugList)
ResultatSug = Split(strSugList, vbLf)
End If
Catch ex As Exception
MessageBox.Show(ex.Message & vbCrLf & ex.StackTrace, "Erreur", MessageBoxButtons.OK, _
MessageBoxIcon.Error)
Finally
'Pointeur standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
End Try
VerifOrthographe = ResultatSug
End Function
12 juil. 2006 à 23:24
ou bien dans les diferrentes propriétes de :
With ObjMSWord
.FileNew()
.Insert(TxtVérif)
.ToolsSpelling()
.EditSelectAll()
TxtProv = .Selection
End With
10 juil. 2006 à 17:28
Juste un petit problème, avec Office 2002, il place la langue du correcteur en Anglais États-Unis par défaut, est-il possible de modifier la langue du correcteur par défaut pour qu'elle soit français canada ?
Merci d'avance
20 oct. 2005 à 19:43
Donc qui connait le moyent d enlever cette option de messagebox depuis vb
merci
20 oct. 2005 à 19:17
20 oct. 2005 à 19:15
voici donc ton code adapté pour le VB7 de .NET
Module ortoword
Public Function VerifOrthographe(ByRef 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 test As New Word.ApplicationClass
Dim TxtProv As String
'Y a-t'il du texte à vérifier ?
If TxtVérif = "" Then
MsgBox("Rien à vérifier !", MsgBoxStyle.Exclamation)
Exit Function
End If
'Pointeur "sablier"
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.WaitCursor
'Définition de l'objet Word et appel de l'outil de vérification de l'orthographe
ObjMSWord = CType(CreateObject("Word.Basic"), Object)
With ObjMSWord
.FileNew()
.Insert(TxtVérif)
.ToolsSpelling()
.EditSelectAll()
TxtProv = .Selection
End With
'Récupération du texte (corrigé) après vérification
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()
ObjMSWord = Nothing
'Pointeur standard
System.Windows.Forms.Cursor.Current = System.Windows.Forms.Cursors.Default
'Message en cas de bon déroulement de l'opération
If TxtProv = "" Then
MsgBox("Vérification ignorée !", MsgBoxStyle.Exclamation)
Else
MsgBox("Vérification terminée !", MsgBoxStyle.Information)
End If
End Function
End Module
Bien sur ont est pas obliger de mettre ta function dans un module LoL
@++ et Bp
20 oct. 2005 à 16:37
si tu as eut le courage de l adapter au point net tu m enleverai une enorme epine du pied LOL
@++ et BP
14 août 2002 à 23:04
10 janv. 2002 à 08:42
BRAVO !!!!!!!
10/10 !
10 janv. 2002 à 08:40