debutant2010 | 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 (chaque ligne contient un mot )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 !!!
Code :
- 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(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
|
Message édité par debutant2010 le 15-03-2010 à 17:17:29
|