Sub Usuwanie_bledow()
' Makro by Dawid Wiktorski (Fantazmaty)

Dim vFindText As Variant
Dim vReplText As Variant
Dim sFindText As String
Dim sReplText As String
Dim i As Long


vFindText = Array("absorbcja", "absorbcją", "absorbcji", "absorbcjami", "centkowana", "centkowane", "centkowani", "centkowanymi", "domyśleć", "dopatrzeć", "grekokatolicki", "indywidulany", "dellarte", "księżami", "massmedia", "mentlik", "miałcz", "miałczy", "miałczał", "miałczały", "miałczyło", "nabazgram", "nabazgra", "niechąco", "niedowierza", "niemniejsza", "niemniejszy", "niemniejsze", "nienajgorszy", "nienajgorsze", "nienajgorsza", "nienajlepsza", "nienajlepsze", "nienajlepszymi", "oddziaływują", "oldboi", "przeciwskazana", "przeciwskazane", "przeciwskazany", "przekonywujący", "przekonywująca", "przekonywujące", "przysięgł", "średniozaawansowany", "średniozaawansowane", "średniozaawansowana", "średniozaawansowani", "terefere", "tonic", "wszechczasów", "wymyśleć", "zaczym", "zadawalając", "zarzadzaniu", "zcentralizowana", "zcentralizowane", "zcentralizowano")
vReplText = Array("absorpcja", "absorpcją", "absorpcji", "absorpcjami", "cętkowana", "cętkowane", "cętkowani", "cętkowanymi", "domyślić", "dopatrzyć", "greckokatolicki", "indywidualny", "dell’arte", "księżmi", "mass media", "mętlik", "miaucz", "miauczy", "miauczał", "miauczały", "miauczyło", "nabazgrzę", "nabazgrze", "niechcący", "nie dowierza", "nie mniejsza", "nie mniejszy", "nie mniejsze", "nie najgorszy", "nie najgorsze", "nie najgorsza", "nie najlepsza", "nie najlepsze", "nie najlepszymi", "oddziaływają", "oldbojów", "przeciwwskazana", "przeciwwskazane", "przeciwwskazany", "przekonywający", "przekonywająca", "przekonywające", "przysiągł", "średnio zaawansowany", "średnio zaawansowane", "średnio zaawansowana", "średnio zaawansowani", "tere-fere", "tonik", "wszech czasów", "wymyślić", "za czym", "zadowalając", "zarządzaniu", "scentralizowana", "scentralizowane", "scentralizowano")
For i = LBound(vFindText) To UBound(vFindText)
    sFindText = vFindText(i)
    sReplText = vReplText(i)
    With Selection.Find
        .Forward = True
        .Wrap = wdFindContinue
        .MatchWholeWord = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Format = False
        .MatchCase = False
        .Text = sFindText
        .Replacement.Text = sReplText
        .Execute Replace:=wdReplaceAll
    End With
Next i
End Sub