debutant2010
Nouveau membre
Bonjour,
Je veux faire une macro word qui permet d'ouvrir mon fichier " FR.iso" qui contient une liste de mots sous cette forme:
AAAA
BBBB
CCCC
DDDD
EEEE
et de comparaer ces mots avec le correcteur de word , s'ils sont corrects c bon sinon il me les met dans un autre fichier .
mon programme s'exécute :
il m'ouvre un fichier word qui fait appel a mon fichier "FR.iso_8859_1.wl"
ce dernier contient la liste des mots a tester
ce que je veux faire maintenant c'est de faire une boucle qui va parcourir mon fichier et vérifier si chaque mot est correct ou pas en le comparant avec le correcteur de word et mettre les mots erronés dans un autre fichier !!!
[cpp]Sub macro_test()
' macro_test Macro
' cette macro permet de vérifier l'orthographe des mots dans Word
'
'ouvrir une session Word
Dim appWrd As New Word.Application
' Dim DocWord As Word.Document
'rendre Word visible
appWrd.Visible = True
' Open "C:\Documents and Settings\acha\Bureau\FR.iso_8859.wl" For Random As 1
ChangeFileOpenDirectory "C:\Documents and Settings\acha\Bureau\"
Documents.Open FileName:="FR.iso_8859_1.wl", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=1252
'Function Returns the input text with the corrections applied from the Word's check-
End Sub
Function CheckSpelling(ByVal Word As String) As Boolean
's'assurer qu'il n'y a pas d'espace supplémentaire
Word = Trim$(Word)
If appWrd.CheckSpelling(Word) Then
'Word est correct
CheckSpelling = True
Else
'le mot est incorrect
End If
End Function
'Fermer le document
DocWord.Documents.Close
'Quitter l'appllication Word
DocWord.Quit
'Liberer la mémoire
Set appWrd = Nothing
Set DocWord = Nothing
'End Sub[/cpp]
Je veux faire une macro word qui permet d'ouvrir mon fichier " FR.iso" qui contient une liste de mots sous cette forme:
AAAA
BBBB
CCCC
DDDD
EEEE
et de comparaer ces mots avec le correcteur de word , s'ils sont corrects c bon sinon il me les met dans un autre fichier .
mon programme s'exécute :
il m'ouvre un fichier word qui fait appel a mon fichier "FR.iso_8859_1.wl"
ce dernier contient la liste des mots a tester
ce que je veux faire maintenant c'est de faire une boucle qui va parcourir mon fichier et vérifier si chaque mot est correct ou pas en le comparant avec le correcteur de word et mettre les mots erronés dans un autre fichier !!!
[cpp]Sub macro_test()
' macro_test Macro
' cette macro permet de vérifier l'orthographe des mots dans Word
'
'ouvrir une session Word
Dim appWrd As New Word.Application
' Dim DocWord As Word.Document
'rendre Word visible
appWrd.Visible = True
' Open "C:\Documents and Settings\acha\Bureau\FR.iso_8859.wl" For Random As 1
ChangeFileOpenDirectory "C:\Documents and Settings\acha\Bureau\"
Documents.Open FileName:="FR.iso_8859_1.wl", ConfirmConversions:=False, _
ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
Encoding:=1252
'Function Returns the input text with the corrections applied from the Word's check-
End Sub
Function CheckSpelling(ByVal Word As String) As Boolean
's'assurer qu'il n'y a pas d'espace supplémentaire
Word = Trim$(Word)
If appWrd.CheckSpelling(Word) Then
'Word est correct
CheckSpelling = True
Else
'le mot est incorrect
End If
End Function
'Fermer le document
DocWord.Documents.Close
'Quitter l'appllication Word
DocWord.Quit
'Liberer la mémoire
Set appWrd = Nothing
Set DocWord = Nothing
'End Sub[/cpp]