Sub aDiakritika_Remove()
' Macro recorded 18.2.2006 by PC-PROG.sk
'
Dim xCo, aCo, xZa, aZa
Dim i As Long

xCo = "ý;ú;í;é;ě;á;ä;ó;ô;č;ď;ľ;ĺ;ň;ř;ŕ;š;ť;ž": aCo = Split(xCo, ";")
xZa = "y;u;i;e;e;a;a;o;o;c;d;l;l;n;r;r;s;t;z": aZa = Split(xZa, ";")

For i = LBound(aCo) To UBound(aCo)
        Call ZnakySrchRepl(CStr(aCo(i)), CStr(aZa(i)))
Next i

End Sub

Sub ZnakySrchRepl(xCo As String, xZaCo As String)
'
    Selection.HomeKey Unit:=wdStory
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = xCo
        .Replacement.Text = xZaCo
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = True
        .MatchWholeWord = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub