Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
3227 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  comparateur word +VBA-WORD

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

comparateur word +VBA-WORD

n°1973824
debutant20​10
Posté le 15-03-2010 à 09:37:10  profilanswer
 

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


Message édité par debutant2010 le 15-03-2010 à 17:17:29
mood
Publicité
Posté le 15-03-2010 à 09:37:10  profilanswer
 

n°1974124
gocho
Posté le 16-03-2010 à 12:19:27  profilanswer
 

moui, et la question est?


Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  comparateur word +VBA-WORD

 

Sujets relatifs
VBA recherchev & comboboxVBA Autocad Déplacement en spécifiant une coordonnée
Simulation de Alt tab sous VBA (Excel)VBA Tourner sur lui même du texte dans autocad
[VBA] Excel: propriété ForeColor d'un UserFormouvrir office word dans une page web
Formulaire et macro sous Word 2007VBA et emails
Cellules Excel / VBAappeler une feuille externe avec VBA
Plus de sujets relatifs à : comparateur word +VBA-WORD


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR