Užitočné (1) | Stevo5 |
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
textový súbot prípona .txt