comparateur word +VBA-WORD

comparateur word +VBA-WORD - VB/VBA/VBS - Programmation

Marsh Posté le 15-03-2010 à 09:37:10    

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 :
  1. Sub macro_test()
  5. ' macro_test Macro
  6. ' cette macro permet de vérifier l'orthographe des mots dans Word
  7. '
  9. 'ouvrir une session Word
  10. Dim appWrd As New Word.Application
  11. ' Dim DocWord As Word.Document
  14. 'rendre Word visible
  15. appWrd.Visible = True
  19. ' Open "C:\Documents and Settings\acha\Bureau\FR.iso_8859.wl" For Random As 1
  20. ChangeFileOpenDirectory "C:\Documents and Settings\acha\Bureau\"
  21.    Documents.Open FileName:="FR.iso_8859_1.wl", ConfirmConversions:=False, _
  22.         ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _
  23.         PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _
  24.         WritePasswordTemplate:="", Format:=wdOpenFormatAuto, XMLTransform:="", _
  25.         Encoding:=1252
  26. 'Function Returns the input text with the corrections applied from the Word's check-
  27.  
  28. End Sub
  32.   Function CheckSpelling(Word As String) As Boolean
  33.  
  34.          
  35. 's'assurer qu'il n'y a pas d'espace supplémentaire
  36.     Word = Trim$(Word)
  37.            
  38.  
  39.     If appWrd.CheckSpelling(Word) Then
  40.    
  41. 'Word est correct
  42.     CheckSpelling = True
  43.    
  44.     Else
  45. 'le mot est incorrect
  47. End If
  48. End Function
  51. 'Fermer le document
  52.   DocWord.Documents.Close
  54. 'Quitter l'appllication Word
  55.   DocWord.Quit
  57. 'Liberer la mémoire
  58.   Set appWrd = Nothing
  59.   Set DocWord = Nothing
  62. 'End Sub


Message édité par debutant2010 le 15-03-2010 à 17:17:29
Reply

Marsh Posté le 15-03-2010 à 09:37:10   

Reply

Marsh Posté le 16-03-2010 à 12:19:27    

moui, et la question est?

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed