Ajouter une listbox, un textbox et un bouton de commande sur une feuille.
Ajouter aussi comme référence au projet: « Microsoft Word Library ».
Coller ce code.
A l’exécution du programme, saisir dans le textBox un mot mal orthographié et cliquer sur le bouton.
La liste propose normalement quelque chose de correct.
‘Crée une référence à l’object Word Automation
Dim w1 As Word.Application
Private Sub Command1_Click()
List1.Clear
‘Vérification de l’orthographe du mot…
‘S’il n’est pas dans le dictionnaire, on remplit la listBox avec d’éventuelles suggestions
If w1.CheckSpelling(Text1.Text) = False Then
For Each I In w1.GetSpellingSuggestions(Text1.Text):
List1.AddItem I
Next
If List1.ListCount = 0 Then List1.AddItem « Aucune suggestion »
Else
List1.AddItem « Orthographe correcte »
End If
End Sub
Private Sub Form_Load()
‘On ouvre une nouvelle instance de Word
Set w1 = New Word.Application
‘On crée un nouveau document Word (c’est nécessaire)
w1.Application.Documents.Add
w1.Visible = False
End Sub
Private Sub Form_Terminate()
w1.Quit False
Set w1 = Nothing
End Sub