Finden Sie jedes Wort als Fehler

Question

Ist es möglich, Wörter zu finden, die MS-Word als Fehler markiert?

Mein Ziel ist es, Wörter zu finden, die "è" anstelle von "é" enthalten, aber um ein Makro zu verwenden, muss ich das Zeichen nur in Wörter ersetzen, die als Fehler markiert sind.

Ich arbeite an MS-Word 2013

Answer 1

hier einige Code ist, dass Sie den Start. Sie müssen Code hinzufügen, der auf den "schlechten" Buchstaben prüft

' 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