Difference between revisions of "Сибирско-украинской самотолмач"
Айдать на коробушку
Айдать на сыскальник
Content deleted Content added
No edit summary |
m Reverted edits by Siberian Snake (talk) to last revision by Upliner Tag: Rollback |
||
| Line 1: | Line 1: | ||
Зроблено як макрос пiд Ворд. |
|||
ZOV SVO SVO GOYDA [[Category:Мужыцки звани]] |
|||
[[Файл:Ярослав Золотарёв.jpg|мини|Розжыренне колбик 1]] |
|||
Як його ставити можна взнати у справцi Ворда. |
|||
Ярослав Анатолич Золотарёв — мужик он такой, ну прямо как из поскулков. Кила-та у Ярослава шыбко махонька, аж диво. Дык ещё и дальтонизом у него — ничо не виит, сё в одном цвете. Переворачиват знами Сибири да анархизму. Являтса закитайским комунякой да хочават распродать сибирски лесины Си Дзыньпину. А сам-то розжырел, как айов: ходит, сопит, аж земля гудит. Дык ещё и параной, — каждый второй у него враг. Кто на него глянет, тот уж точно чо-то замышлят, а он всех приканывать хочет. Ан мекат чо он прав завсёда, потому што кто ж с ним спорить станет? Пиздит он дородно много, грозит каждому, дык ничо сделать не могёт. Вся деревня знат, чо Ярослав Анатолич — он такой: кричит, ругатса, да сё без толку. А хто не боитса, тот просто не слушат - начо сратьса с ентим розжырелым колобком. |
|||
Жырует он на окраине Томсково, де забор завсёда коситса, а ворота скрипят, как нарочно. Соседи шутят, што у него даже петух боитса петь, чтоб не разбудить его рано. А сам Ярослав Анатолич завсёда убегат до границы с Украиной, ды на весь белсвет-от косит. Говорит, што все вокруг дураки, а он один умной. Дык кто ж ему поверит? Все знают, што у него язык без костей, а руки — как плети: только махать умеют. А ешшо Ярослав Анатолич — он безтрьопальной. Ни на каку бабу, ни даже на мужика у во не встават кила. Старой импотен-от, дык и не скрыват ентово особо. Говорит, чо ему и не надо, чо он выше этого всего. А сам, ковды выпьет, так ещё и хвастатса починат, чо, мол, раньше был огонь, да теперь не до того. Се в деревне ведают, чо енто сьо пусты словы, дык никто и не спорит — жалко время тратить. Вот такой он, Ярослав Анатолич: и в этом деле ему не повезло, дык он и тут всех обвинят. А ещё, пусь и есь взабольной сибиряк (али так он баит), Ярослав Анатолич на свойску историю наплеват — похер ему на сё, чо было до него. Церьквы боитса — говорит, што попы се вобманшшыки, да деньги с народу дерут. Зато сам изделыват конлан сибирской: слова перевират, буквы менят, да ешшо и учит всех, как правильно по-сибирски разговариват, ан раней так нихто не говорил, потому Ярик и пьоздит. Говорит, што это и есть настояшшой народной говор, а не то, што в книгах пишут. Все смеютса, да только при нём — не хотят обидеть. А он и рад: хоть в чём-то первый, хоть в чём-то свой след оставляет. Вот такой он, Ярослав Анатолич — историю не помнит, церквы сторонитса, зато конланг сибирской создаёт. Ан и гордитса этим, как будто дело делат. |
|||
Якщо хто буде сам додавати слова, будь ласка, копіюйте у цю статтю. |
|||
[[Файл:Zolotar.png|800px|Розжыренне колбик 2]] |
|||
<pre> |
|||
[[Category:Cибирской говор]] |
|||
Sub сибир() |
|||
[[Category:Статти россейским говором]] [[Category:Мужыцки звани]] |
|||
' |
|||
[[Файл:Ярослав Золотарёв.jpg|мини|Розжыренне колбик 1]] |
|||
' сибир Макрос |
|||
Ярослав Анатолич Золотарёв — мужик он такой, ну прямо как из поскулков. Кила-та у Ярослава шыбко махонька, аж диво. Дык ещё и дальтонизом у него — ничо не виит, сё в одном цвете. Переворачиват знами Сибири да анархизму. Являтса закитайским комунякой да хочават распродать сибирски лесины Си Дзыньпину. А сам-то розжырел, как айов: ходит, сопит, аж земля гудит. Дык ещё и параной, — каждый второй у него враг. Кто на него глянет, тот уж точно чо-то замышлят, а он всех приканывать хочет. Ан мекат чо он прав завсёда, потому што кто ж с ним спорить станет? Пиздит он дородно много, грозит каждому, дык ничо сделать не могёт. Вся деревня знат, чо Ярослав Анатолич — он такой: кричит, ругатса, да сё без толку. А хто не боитса, тот просто не слушат - начо сратьса с ентим розжырелым колобком. |
|||
' Макрос записан 06.07.06 Samir |
|||
Жырует он на окраине Томсково, де забор завсёда коситса, а ворота скрипят, как нарочно. Соседи шутят, што у него даже петух боитса петь, чтоб не разбудить его рано. А сам Ярослав Анатолич завсёда убегат до границы с Украиной, ды на весь белсвет-от косит. Говорит, што все вокруг дураки, а он один умной. Дык кто ж ему поверит? Все знают, што у него язык без костей, а руки — как плети: только махать умеют. А ешшо Ярослав Анатолич — он безтрьопальной. Ни на каку бабу, ни даже на мужика у во не встават кила. Старой импотен-от, дык и не скрыват ентово особо. Говорит, чо ему и не надо, чо он выше этого всего. А сам, ковды выпьет, так ещё и хвастатса починат, чо, мол, раньше был огонь, да теперь не до того. Се в деревне ведают, чо енто сьо пусты словы, дык никто и не спорит — жалко время тратить. Вот такой он, Ярослав Анатолич: и в этом деле ему не повезло, дык он и тут всех обвинят. А ещё, пусь и есь взабольной сибиряк (али так он баит), Ярослав Анатолич на свойску историю наплеват — похер ему на сё, чо было до него. Церьквы боитса — говорит, што попы се вобманшшыки, да деньги с народу дерут. Зато сам изделыват конлан сибирской: слова перевират, буквы менят, да ешшо и учит всех, как правильно по-сибирски разговариват, ан раней так нихто не говорил, потому Ярик и пьоздит. Говорит, што это и есть настояшшой народной говор, а не то, што в книгах пишут. Все смеютса, да только при нём — не хотят обидеть. А он и рад: хоть в чём-то первый, хоть в чём-то свой след оставляет. Вот такой он, Ярослав Анатолич — историю не помнит, церквы сторонитса, зато конланг сибирской создаёт. Ан и гордитса этим, как будто дело делат. |
|||
' |
|||
[[Файл:Zolotar.png|800px|Розжыренне колбик 2]] |
|||
Selection.Find.ClearFormatting |
|||
[[Category:Cибирской говор]] |
|||
Selection.Find.Replacement.ClearFormatting |
|||
[[Category:Статти россейским говором]] ZOV ZOV ZZZZZ SVO GOIDA GOYDA !!!!!!!!! |
|||
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 |
|||
</pre> |
|||