Сибирско-украинской самотолмач

Зроблено як макрос пiд Ворд.

Як його ставити можна взнати у справцi Ворда.

Якщо хто буде сам додавати слова, будь ласка, копіюйте у цю статтю.

Sub сибир() ' ' сибир Макрос ' Макрос записан 06.07.06 Samir '

   Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
       .Text = "[["
       .Replacement.Text = "[[Test-WP/chal/"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   

'корни

With Selection.Find

       .Text = "музик"
       .Replacement.Text = "леполад"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

With Selection.Find

       .Text = "музич"
       .Replacement.Text = "леполад"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "зьк"
       .Replacement.Text = "зк"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "композитор"
       .Replacement.Text = "сослагальник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "літератур"
       .Replacement.Text = "краснослов"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "письменник"
       .Replacement.Text = "баюн"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "сприйм"
       .Replacement.Text = "возприм"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "америка"
       .Replacement.Text = "мерика"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "драмати"
       .Replacement.Text = "жужыг"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "поет"
       .Replacement.Text = "вершун"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "мистецтв"
       .Replacement.Text = "узорочч"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

With Selection.Find

       .Text = " видатн"
       .Replacement.Text = " видн"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

   With Selection.Find
       .Text = " міст"
       .Replacement.Text = "город"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "лідер"
       .Replacement.Text = "гол"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " більш"
       .Replacement.Text = " боле"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "півден"
       .Replacement.Text = "полден"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
    With Selection.Find
       .Text = " армі"
       .Replacement.Text = " рать"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = " інш"
       .Replacement.Text = " дружн"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "інституц"
       .Replacement.Text = "устав"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "керівник"
       .Replacement.Text = "башлычник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " ніж "
       .Replacement.Text = " чем "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "президент"
       .Replacement.Text = "перьодседальник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "політич"
       .Replacement.Text = "правиль"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = " вже"
       .Replacement.Text = " ужо"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "деяк"
       .Replacement.Text = "некотор"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = " одяг"
       .Replacement.Text = " одьожа"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "рр."
       .Replacement.Text = "гг."
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "Наполеон"
       .Replacement.Text = "Наполевон"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "рр."
       .Replacement.Text = "гг."
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "США"
       .Replacement.Text = "СДМ"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
       With Selection.Find
       .Text = " та "
       .Replacement.Text = " да "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

   With Selection.Find
       .Text = "загальн"
       .Replacement.Text = "вобч"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "події"
       .Replacement.Text = "сбывишшы"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "померли"
       .Replacement.Text = "задохли"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "народились"
       .Replacement.Text = "родившысь"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
    With Selection.Find
       .Text = "століття"
       .Replacement.Text = "столетте"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "-ті"
       .Replacement.Text = "-ты"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "систем"
       .Replacement.Text = "уряд"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "результат"
       .Replacement.Text = "наследк"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = " бул"
       .Replacement.Text = " был"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " отрим"
       .Replacement.Text = " получ"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " це "
       .Replacement.Text = " ето "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
       
        With Selection.Find
       .Text = " завжди"
       .Replacement.Text = " завседа"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
       
       
       
   With Selection.Find
       .Text = " також"
       .Replacement.Text = " ешшо"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
    With Selection.Find
       .Text = "див."
       .Replacement.Text = "зы."
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "вір"
       .Replacement.Text = "вер"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "повнот"
       .Replacement.Text = "полнот"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "якщо"
       .Replacement.Text = "еси"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " є "
       .Replacement.Text = " есь "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "стовп"
       .Replacement.Text = "стамик"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "друкар"
       .Replacement.Text = "тамгов"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
    
   With Selection.Find
       .Text = "перш"
       .Replacement.Text = "перв"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "між"
       .Replacement.Text = "межу"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "під"
       .Replacement.Text = "под"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "від"
       .Replacement.Text = "вод"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "року "
       .Replacement.Text = "года "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " що "
       .Replacement.Text = " чо "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "відлог"
       .Replacement.Text = "ошейник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " яка "
       .Replacement.Text = " кака "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " яка "
       .Replacement.Text = " кака "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "загалом"
       .Replacement.Text = "вобче"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "дія"
       .Replacement.Text = "дей"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = " як "
       .Replacement.Text = " как "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " які "
       .Replacement.Text = " каки "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "вваж"
       .Replacement.Text = "шшыт"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "букв"
       .Replacement.Text = "рьоз"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find
       .Text = "рівн"
       .Replacement.Text = "ровн"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "сліп"
       .Replacement.Text = "слеп"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "соціаль"
       .Replacement.Text = "артель"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "засновник"
       .Replacement.Text = "обосновальник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
    With Selection.Find
       .Text = "елемент"
       .Replacement.Text = "первик"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "форм"
       .Replacement.Text = "колыб"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " гор"
       .Replacement.Text = " камен"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = " частина"
       .Replacement.Text = " постать"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "поверхн"
       .Replacement.Text = "покат"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
     With Selection.Find
       .Text = "маляр"
       .Replacement.Text = "павочник"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
     With Selection.Find
       .Text = "склад"
       .Replacement.Text = "супой"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "використову"
       .Replacement.Text = "корысту"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

'окончания

   With Selection.Find
       .Text = " най"
       .Replacement.Text = " само"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
    With Selection.Find
       .Text = "ість "
       .Replacement.Text = "ось "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
  With Selection.Find
       .Text = "ого "
       .Replacement.Text = "ово "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
  With Selection.Find
       .Text = "ць "
       .Replacement.Text = "ц "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
  With Selection.Find
       .Text = "ць. "
       .Replacement.Text = "ц. "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "ства "
       .Replacement.Text = "сва "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "стві "
       .Replacement.Text = "све "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "ав "
       .Replacement.Text = "ал "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ів "
       .Replacement.Text = "ов "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ів,"
       .Replacement.Text = "ов,"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "аєть"
       .Replacement.Text = "ат"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
     
    With Selection.Find
       .Text = "ий "
       .Replacement.Text = "ой "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
    
       With Selection.Find
       .Text = "ськ"
       .Replacement.Text = "ск"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll

'месяца

With Selection.Find

       .Text = "листопада"
       .Replacement.Text = "грудня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
      

With Selection.Find

       .Text = "грудня"
       .Replacement.Text = "студня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
      
   
   

With Selection.Find

       .Text = "лютого"
       .Replacement.Text = "лютня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

With Selection.Find

       .Text = "вересня"
       .Replacement.Text = "ревуна"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

With Selection.Find

       .Text = "жовтня"
       .Replacement.Text = "грязника"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   

With Selection.Find

       .Text = "березня"
       .Replacement.Text = "берьозозола"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "квітня"
       .Replacement.Text = "светня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "січня"
       .Replacement.Text = "сечня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "серпня"
       .Replacement.Text = "серьпня"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "липня"
       .Replacement.Text = "грозника"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

'орфография

   With Selection.Find
       .Text = "ґ"
       .Replacement.Text = "г"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ї"
       .Replacement.Text = "и"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ів "
       .Replacement.Text = "ов "
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   
   With Selection.Find
       .Text = "і"
       .Replacement.Text = "и"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "є"
       .Replacement.Text = "е"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "'"
       .Replacement.Text = ""
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = "ий "
       .Replacement.Text = "ой "
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ся "
       .Replacement.Text = "са "
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   With Selection.Find
       .Text = " з "
       .Replacement.Text = " с "
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll

With Selection.Find

       .Text = "ґ"
       .Replacement.Text = "г"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   

With Selection.Find

       .Text = "щ"
       .Replacement.Text = "шш"
       .Forward = True
   End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ив "
       .Replacement.Text = "ил "
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   
   

With Selection.Find

       .Text = "жи"
       .Replacement.Text = "жы"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ши"
       .Replacement.Text = "шы"
       .Forward = True
        End With
   Selection.Find.Execute Replace:=wdReplaceAll
   
   With Selection.Find
       .Text = "ця"
       .Replacement.Text = "ца"
       .Forward = True
        End With
   Selection.Find.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