Sub AutoKorrekturALL()
'
' AutoKorrekturALL Makro
'
'
    Dim er As Range

    For Each er In ActiveDocument.SpellingErrors

        If er.GetSpellingSuggestions.Count > 0 Then

            er.Text = er.GetSpellingSuggestions.Item(1).Name

        End If

    Next

End Sub