No a nahrát si to jako makro. Takhle to mám ve Wordu (je to zpraseně aut. převod z WordBasicu do VBA, ale jde o tu kostru)
Public Sub MAIN()Dim je$Dim neni$Dim iWordBasic.StartOfDocumentje$ = "áčďéěíňóřšťúůýž"neni$ = "acdeeinorstuuyz"For i = 1 To Len(je$) WordBasic.EditReplace Find:=Mid(je$, i, 1), Replace:=Mid(neni$, i, 1), Direction:=0, MatchCase:=0, WholeWord:=0, PatternMatch:=0, SoundsLike:=0, ReplaceAll:=1, Format:=0, Wrap:=1, FindAllWordForms:=0 WordBasic.StartOfDocumentNext iEnd Sub