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

Зроблено як макрос п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