Discussion :

[ProgElecT]

Bonjour

Est-il possible d'utiliser le dictionnaire de Microsoft Word.

Je voudrai, dans une boucle, faire rechercher tous les mots possibles à partir d'un groupe de lettres entré par un utilisateur, pour les afficher dans un listbox.

Je pense que l'utilisation du dictionnaire de Microsoft Word serait le plus approprié, étant donnée que ce dictionnaire doit être présent sur tout PCs

Merci de vos éventuelles réponses

ProgElecT

[SilkyRoad]

bonjour

cet exemple verifie si le 1er mot d'un document Word (deja ouvert) existe dans le dictionnaire Office

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Dim Appli As Word.Application
Dim WordDoc As Word.Document
 
'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
On Error Resume Next
Set Appli = GetObject(, "Word.Application")
Set WordDoc = Appli.Documents("C:\leDocument.doc")
 
MsgBox Appli.CheckSpelling(WordDoc.Words(1))

une variante qui boucle sur tous les mots du document

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command1_Click()
    Dim Appli As Word.Application
    Dim WordDoc As Word.Document
    Dim i As Long
 
    'nécéssite d'activer la reference Microsoft word xx.x 0bject Library
    On Error Resume Next
    Set Appli = GetObject(, "Word.Application")
    Set WordDoc = Appli.Documents("C:\leDocument.doc")
 
    For i = 1 To WordDoc.Words.Count
        If Appli.CheckSpelling(WordDoc.Words(i)) = False Then _
            MsgBox "Il y a un problème sur ce mot: " & WordDoc.Words(i)
    Next i
End Sub

bon apres midi
michel

[ProgElecT]

Merci SilkyRoad

Je vais essayer avec sa, la seule chose qui m'embete est qui va me falloir créer un fichier *.DOC pour chaque iteration.

J'aurai aimé pouvoir rechercher dans le dictionnaire, pour chaque iteration si le mot proposé existait dans ce dictionnaire, si oui je l'ajoute a mon listbox.

Une procedure du style serait plus pratique
If MotRechecher existe dans Dictionnaire Word then
list.additem MotRechercher
end if

ProgElecT

[Micle]

Bonjour à tous,je sais que cette discutions date de 2006 mais plutôt que d'en créer une nouvelle je préfère poser ma question ici (ci c'est possible).
Je recherche moi aussi un code pour accéder à ce dictionnaire (Pour un petit jeux de lettre que je développe),
et après plusieurs recherche sur le net, j'ai bien trouvé un dico mot & synonyme mais pas de dico mots & leurs définitions en version libre.
Est t'on obligé d’ouvrir Word pour le consulter ?

Si vous avez un exemple de code pour consulter ce dictionnaire je serai intéressé par cela.

Merci à toutes réponse qui me sortirai de la et bonne journée à vous.