Сибирско-украинской самотолмач
From Wikipedia
Зроблено як макрос пiд Ворд.
Як його ставити можна взнати у справцi Ворда.
Якщо хто буде сам додавати слова, будь ласка, копіюйте у цю статтю.
Sub сибир() ' ' сибир Макрос ' Макрос записан 06.07.06 Samir '
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "[["
.Replacement.Text = "[["
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
'корни
With Selection.Find
.Text = "музик"
.Replacement.Text = "леполад"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "музич"
.Replacement.Text = "леполад"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "зьк"
.Replacement.Text = "зк"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "композитор"
.Replacement.Text = "сослагальник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "літератур"
.Replacement.Text = "краснослов"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "письменник"
.Replacement.Text = "баюн"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "сприйм"
.Replacement.Text = "возприм"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "америка"
.Replacement.Text = "мерика"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "драмати"
.Replacement.Text = "жужыг"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "поет"
.Replacement.Text = "вершун"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "мистецтв"
.Replacement.Text = "узорочч"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " видатн"
.Replacement.Text = " видн"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " міст"
.Replacement.Text = "город"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "лідер"
.Replacement.Text = "гол"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " більш"
.Replacement.Text = " боле"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "півден"
.Replacement.Text = "полден"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " армі"
.Replacement.Text = " рать"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " інш"
.Replacement.Text = " дружн"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "інституц"
.Replacement.Text = "устав"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "керівник"
.Replacement.Text = "башлычник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " ніж "
.Replacement.Text = " чем "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "президент"
.Replacement.Text = "перьодседальник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "політич"
.Replacement.Text = "правиль"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " вже"
.Replacement.Text = " ужо"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "деяк"
.Replacement.Text = "некотор"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " одяг"
.Replacement.Text = " одьожа"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "рр."
.Replacement.Text = "гг."
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "Наполеон"
.Replacement.Text = "Наполевон"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "рр."
.Replacement.Text = "гг."
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "США"
.Replacement.Text = "СДМ"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " та "
.Replacement.Text = " да "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "загальн"
.Replacement.Text = "вобч"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "події"
.Replacement.Text = "сбывишшы"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "померли"
.Replacement.Text = "задохли"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "народились"
.Replacement.Text = "родившысь"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "століття"
.Replacement.Text = "столетте"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "-ті"
.Replacement.Text = "-ты"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "систем"
.Replacement.Text = "уряд"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "результат"
.Replacement.Text = "наследк"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " бул"
.Replacement.Text = " был"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " отрим"
.Replacement.Text = " получ"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " це "
.Replacement.Text = " ето "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " завжди"
.Replacement.Text = " завседа"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " також"
.Replacement.Text = " ешшо"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "див."
.Replacement.Text = "зы."
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "вір"
.Replacement.Text = "вер"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "повнот"
.Replacement.Text = "полнот"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "якщо"
.Replacement.Text = "еси"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " є "
.Replacement.Text = " есь "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "стовп"
.Replacement.Text = "стамик"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "друкар"
.Replacement.Text = "тамгов"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "перш"
.Replacement.Text = "перв"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "між"
.Replacement.Text = "межу"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "під"
.Replacement.Text = "под"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "від"
.Replacement.Text = "вод"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "року "
.Replacement.Text = "года "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " що "
.Replacement.Text = " чо "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "відлог"
.Replacement.Text = "ошейник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " яка "
.Replacement.Text = " кака "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " яка "
.Replacement.Text = " кака "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "загалом"
.Replacement.Text = "вобче"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "дія"
.Replacement.Text = "дей"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " як "
.Replacement.Text = " как "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " які "
.Replacement.Text = " каки "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "вваж"
.Replacement.Text = "шшыт"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "букв"
.Replacement.Text = "рьоз"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "рівн"
.Replacement.Text = "ровн"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "сліп"
.Replacement.Text = "слеп"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "соціаль"
.Replacement.Text = "артель"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "засновник"
.Replacement.Text = "обосновальник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "елемент"
.Replacement.Text = "первик"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "форм"
.Replacement.Text = "колыб"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " гор"
.Replacement.Text = " камен"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " частина"
.Replacement.Text = " постать"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "поверхн"
.Replacement.Text = "покат"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "маляр"
.Replacement.Text = "павочник"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "склад"
.Replacement.Text = "супой"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "використову"
.Replacement.Text = "корысту"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
'окончания
With Selection.Find
.Text = " най"
.Replacement.Text = " само"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ість "
.Replacement.Text = "ось "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ого "
.Replacement.Text = "ово "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ць "
.Replacement.Text = "ц "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ць. "
.Replacement.Text = "ц. "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ства "
.Replacement.Text = "сва "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "стві "
.Replacement.Text = "све "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ав "
.Replacement.Text = "ал "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ів "
.Replacement.Text = "ов "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ів,"
.Replacement.Text = "ов,"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "аєть"
.Replacement.Text = "ат"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ий "
.Replacement.Text = "ой "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ськ"
.Replacement.Text = "ск"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
'месяца
With Selection.Find
.Text = "листопада"
.Replacement.Text = "грудня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "грудня"
.Replacement.Text = "студня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "лютого"
.Replacement.Text = "лютня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "вересня"
.Replacement.Text = "ревуна"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "жовтня"
.Replacement.Text = "грязника"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "березня"
.Replacement.Text = "берьозозола"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "квітня"
.Replacement.Text = "светня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "січня"
.Replacement.Text = "сечня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "серпня"
.Replacement.Text = "серьпня"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "липня"
.Replacement.Text = "грозника"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
'орфография
With Selection.Find
.Text = "ґ"
.Replacement.Text = "г"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ї"
.Replacement.Text = "и"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ів "
.Replacement.Text = "ов "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "і"
.Replacement.Text = "и"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "є"
.Replacement.Text = "е"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "'"
.Replacement.Text = ""
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ий "
.Replacement.Text = "ой "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ся "
.Replacement.Text = "са "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = " з "
.Replacement.Text = " с "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ґ"
.Replacement.Text = "г"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "щ"
.Replacement.Text = "шш"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ив "
.Replacement.Text = "ил "
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "жи"
.Replacement.Text = "жы"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ши"
.Replacement.Text = "шы"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ця"
.Replacement.Text = "ца"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "ци"
.Replacement.Text = "цы"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
'википедическое
With Selection.Find
.Text = "Зображення:"
.Replacement.Text = "Image:"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "]]"
.Replacement.Text = "|]]"
.Forward = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.EndKey Unit:=wdStory Selection.InsertAfter ("[_[_Category_:_Siberian_]_]")
End Sub

