Difference between revisions of "Сибирско-украинской самотолмач"

Айдать на коробушку Айдать на сыскальник
← Older editNewer edit →
Content deleted Content added
VisualWikitext
Формат
No edit summary
Line 1: Line 1:
ZOV SVO SVO GOYDA [[Category:Мужыцки звани]]
Зроблено як макрос пiд Ворд.
[[Файл:Ярослав Золотарёв.jpg|мини|Розжыренне колбик 1]]

Ярослав Анатолич Золотарёв — мужик он такой, ну прямо как из поскулков. Кила-та у Ярослава шыбко махонька, аж диво. Дык ещё и дальтонизом у него — ничо не виит, сё в одном цвете. Переворачиват знами Сибири да анархизму. Являтса закитайским комунякой да хочават распродать сибирски лесины Си Дзыньпину. А сам-то розжырел, как айов: ходит, сопит, аж земля гудит. Дык ещё и параной, — каждый второй у него враг. Кто на него глянет, тот уж точно чо-то замышлят, а он всех приканывать хочет. Ан мекат чо он прав завсёда, потому што кто ж с ним спорить станет? Пиздит он дородно много, грозит каждому, дык ничо сделать не могёт. Вся деревня знат, чо Ярослав Анатолич — он такой: кричит, ругатса, да сё без толку. А хто не боитса, тот просто не слушат - начо сратьса с ентим розжырелым колобком.
Як його ставити можна взнати у справцi Ворда.
Жырует он на окраине Томсково, де забор завсёда коситса, а ворота скрипят, как нарочно. Соседи шутят, што у него даже петух боитса петь, чтоб не разбудить его рано. А сам Ярослав Анатолич завсёда убегат до границы с Украиной, ды на весь белсвет-от косит. Говорит, што все вокруг дураки, а он один умной. Дык кто ж ему поверит? Все знают, што у него язык без костей, а руки — как плети: только махать умеют. А ешшо Ярослав Анатолич — он безтрьопальной. Ни на каку бабу, ни даже на мужика у во не встават кила. Старой импотен-от, дык и не скрыват ентово особо. Говорит, чо ему и не надо, чо он выше этого всего. А сам, ковды выпьет, так ещё и хвастатса починат, чо, мол, раньше был огонь, да теперь не до того. Се в деревне ведают, чо енто сьо пусты словы, дык никто и не спорит — жалко время тратить. Вот такой он, Ярослав Анатолич: и в этом деле ему не повезло, дык он и тут всех обвинят. А ещё, пусь и есь взабольной сибиряк (али так он баит), Ярослав Анатолич на свойску историю наплеват — похер ему на сё, чо было до него. Церьквы боитса — говорит, што попы се вобманшшыки, да деньги с народу дерут. Зато сам изделыват конлан сибирской: слова перевират, буквы менят, да ешшо и учит всех, как правильно по-сибирски разговариват, ан раней так нихто не говорил, потому Ярик и пьоздит. Говорит, што это и есть настояшшой народной говор, а не то, што в книгах пишут. Все смеютса, да только при нём — не хотят обидеть. А он и рад: хоть в чём-то первый, хоть в чём-то свой след оставляет. Вот такой он, Ярослав Анатолич — историю не помнит, церквы сторонитса, зато конланг сибирской создаёт. Ан и гордитса этим, как будто дело делат.

[[Файл:Zolotar.png|800px|Розжыренне колбик 2]]
Якщо хто буде сам додавати слова, будь ласка, копіюйте у цю статтю.
[[Category:Cибирской говор]]
<pre>
[[Category:Статти россейским говором]] [[Category:Мужыцки звани]]
Sub сибир()
[[Файл:Ярослав Золотарёв.jpg|мини|Розжыренне колбик 1]]
'
Ярослав Анатолич Золотарёв — мужик он такой, ну прямо как из поскулков. Кила-та у Ярослава шыбко махонька, аж диво. Дык ещё и дальтонизом у него — ничо не виит, сё в одном цвете. Переворачиват знами Сибири да анархизму. Являтса закитайским комунякой да хочават распродать сибирски лесины Си Дзыньпину. А сам-то розжырел, как айов: ходит, сопит, аж земля гудит. Дык ещё и параной, — каждый второй у него враг. Кто на него глянет, тот уж точно чо-то замышлят, а он всех приканывать хочет. Ан мекат чо он прав завсёда, потому што кто ж с ним спорить станет? Пиздит он дородно много, грозит каждому, дык ничо сделать не могёт. Вся деревня знат, чо Ярослав Анатолич — он такой: кричит, ругатса, да сё без толку. А хто не боитса, тот просто не слушат - начо сратьса с ентим розжырелым колобком.
' сибир Макрос
Жырует он на окраине Томсково, де забор завсёда коситса, а ворота скрипят, как нарочно. Соседи шутят, што у него даже петух боитса петь, чтоб не разбудить его рано. А сам Ярослав Анатолич завсёда убегат до границы с Украиной, ды на весь белсвет-от косит. Говорит, што все вокруг дураки, а он один умной. Дык кто ж ему поверит? Все знают, што у него язык без костей, а руки — как плети: только махать умеют. А ешшо Ярослав Анатолич — он безтрьопальной. Ни на каку бабу, ни даже на мужика у во не встават кила. Старой импотен-от, дык и не скрыват ентово особо. Говорит, чо ему и не надо, чо он выше этого всего. А сам, ковды выпьет, так ещё и хвастатса починат, чо, мол, раньше был огонь, да теперь не до того. Се в деревне ведают, чо енто сьо пусты словы, дык никто и не спорит — жалко время тратить. Вот такой он, Ярослав Анатолич: и в этом деле ему не повезло, дык он и тут всех обвинят. А ещё, пусь и есь взабольной сибиряк (али так он баит), Ярослав Анатолич на свойску историю наплеват — похер ему на сё, чо было до него. Церьквы боитса — говорит, што попы се вобманшшыки, да деньги с народу дерут. Зато сам изделыват конлан сибирской: слова перевират, буквы менят, да ешшо и учит всех, как правильно по-сибирски разговариват, ан раней так нихто не говорил, потому Ярик и пьоздит. Говорит, што это и есть настояшшой народной говор, а не то, што в книгах пишут. Все смеютса, да только при нём — не хотят обидеть. А он и рад: хоть в чём-то первый, хоть в чём-то свой след оставляет. Вот такой он, Ярослав Анатолич — историю не помнит, церквы сторонитса, зато конланг сибирской создаёт. Ан и гордитса этим, как будто дело делат.
' Макрос записан 06.07.06 Samir
[[Файл:Zolotar.png|800px|Розжыренне колбик 2]]
'
[[Category:Cибирской говор]]
Selection.Find.ClearFormatting
[[Category:Статти россейским говором]] ZOV ZOV ZZZZZ SVO GOIDA GOYDA !!!!!!!!!
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 = "&#039;"
.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
</pre>
Retrieved from "https://sibwiki.org/wiki/Сибирско-украинской_самотолмач"