Trouver chaque mot marqué comme erreur

Question

Est-il possible de trouver les mots que les marques MS-Word comme des erreurs?

Mon but est de trouver les mots contenant « è » au lieu de « é », mais d'utiliser une macro que je dois remplacer le charbon uniquement en mots marqués comme erreur.

Je travaille sur MS-Word 2013

Answer 1

ici est un code pour vous aider à démarrer. vous devez ajouter du code qui vérifie la "mauvaise" lettre

' this is just demo code that shows how misspelled words could be replaced 

' create document with a few words, one or two misspelled 
' then single-step this code using F8 key 
' while watching the text in the document 


Sub aaaaaa() 

    Dim i As Integer 
    Dim badChr As String 
    Dim badWrd As String 

    Dim wrd As Object 
    For Each wrd In ActiveDocument.Words 

     If wrd.SpellingErrors.Count > 0 Then 

      badWrd = wrd.SpellingErrors(1).Text 
      Debug.Print badWrd 

      wrd.SpellingErrors(1).Text = string(len(badWrd),"x") ' replace whole word if you like 
      wrd.SpellingErrors(1).Text = badWrd     ' put back original 

      For i = 1 To wrd.SpellingErrors(1).Characters.Count ' loop characters in misspelled word 
       badChr = wrd.SpellingErrors(1).Characters(i).Text 
       wrd.SpellingErrors(1).Characters(i).Text = "x"  ' replace character 
       wrd.SpellingErrors(1).Characters(i).Text = badChr ' restore character 
      Next i 
     End If 
    Next wrd 
End Sub