Discussion :

[nicorpz]

Bonjour,

Je corrige un texte sur Word dans lequel il y a beaucoup de fautes. A chaque faute, je dois cliquer sur "modifier" ou"remplacer", et cela prend bcp de temps. j'aimerais savoir s'il existe sur Word une fonction qui permet d'effectuer toutes les corrections en une seule fois, donc sans avoir à cliquer chaque fois . Je précise que cela m'intéresse, même si toutes les corrections automatiques ne sont pas exactes.
merci d'avance
N

[Heureux-oli]

Salut,

Je ne connais pas de choix ou option pour le faire.

Avec les restrictions d'usage, essaie ce code, il corrige avec la première porposition de la liste.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Sub Corrections()
Dim myErrors
Dim myErr
Set myErrors = ActiveDocument.Range.SpellingErrors
If myErrors.Count = 0 Then
    MsgBox "No spelling errors found."
Else
    For Each myErr In myErrors
        myErr.Select
        Selection.Text = myErr.GetSpellingSuggestions.Item(1).Name
    Next
End If
End Sub