Compareteur word +VBA-Word

  • Auteur de la discussion debutant2010
  • Date de début

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]
 

zeb

Modérateur
Salut,

Le respect du règlement est celui dû à qui ceux à qui de l'aide est demandé.
Si tu ne respectes rien, tu n'obtiendras rien, les personnes susceptibles de t'aider passeront leur chemin. Modifie donc ton premier message pour le rendre conforme. J'enlèverai alors mon énorme smiley et ton message sera à tout point de vue agréable à lire, ce qui lui permettra, je l'espère, de trouver rapidement une solution.

Merci.
 
Vous devez vous inscrire ou vous connecter pour répondre ici.
Derniers messages publiés
Statistiques globales
Discussions
730 098
Messages
6 717 050
Membres
1 586 282
Dernier membre
Yannick3553
Partager cette page
Haut