Yaroslav at 14:12, 10 Студня 2025

2025-12-10T14:12:54Z

← Older revision		Revision as of 14:12, 10 Студня 2025
Line 1:		Line 1:
	Зроблено як макрос пiд Ворд.		Зроблено як [[макрос]] пiд Ворд.

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

Ogurtsow: Reverted edits by Siberian Snake (talk) to last revision by Upliner

2025-10-10T03:19:49Z

Reverted edits by Siberian Snake (talk) to last revision by Upliner

Выказать ментовки

Siberian Snake at 23:00, 6 Грязника 2025

2025-10-06T23:00:55Z

Выказать ментовки

Upliner: Формат

2021-10-11T02:02:01Z

Формат

← Older revision		Revision as of 02:02, 11 Грязника 2021
Line 4:		Line 4:

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

	Sub сибир()		Sub сибир()
	'		'
Line 917:		Line 917:

	End Sub		End Sub
			</pre>

*>Timichal: Robot: Automated text replacement (-\[\[(C|c)ategory:( |)(S|s)iberian\]\] +)

2006-10-05T16:59:04Z

Robot: Automated text replacement (-\[\[(C|c)ategory:( |)(S|s)iberian\]\] +)

← Older revision		Revision as of 16:59, 5 Грязника 2006
Line 917:		Line 917:

	End Sub		End Sub

	[[Category:Siberian]]

*>Incubator import: Test-WP/chal/Сибирско-украинской самотолмач moved to Сибирско-украинской самотолмач

2006-10-02T15:30:55Z

Test-WP/chal/Сибирско-украинской самотолмач moved to Сибирско-украинской самотолмач

← Older revision		Revision as of 15:30, 2 Грязника 2006
(No difference)

*>Incubator import: Fixing internal links

2006-10-02T15:14:44Z

Fixing internal links

← Older revision		Revision as of 15:14, 2 Грязника 2006
Line 14:		Line 14:
	With Selection.Find		With Selection.Find
	.Text = "[["		.Text = "[["
	.Replacement.Text = "[[~~Test-WP/chal/~~"		.Replacement.Text = "[["
	.Forward = True		.Forward = True
	End With		End With

212.90.127.252: corrected grammar

2006-07-14T19:31:26Z

corrected grammar

← Older revision		Revision as of 19:31, 14 Грозника 2006
Line 1:		Line 1:
	Зроблено як макрос пiд Ворд.		Зроблено як макрос пiд Ворд.

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

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

	Sub сибир()		Sub сибир()

*>Yaroslav Zolotaryov at 09:21, 13 Грозника 2006

2006-07-13T09:21:22Z

← Older revision		Revision as of 09:21, 13 Грозника 2006
Line 914:		Line 914:

	Selection.EndKey Unit:=wdStory		Selection.EndKey Unit:=wdStory
	Selection.InsertAfter ("[[~~Category~~:~~Siberian~~]]")		Selection.InsertAfter ("[_[_Category_:_Siberian_]_]")

	End Sub		End Sub

*>Yaroslav Zolotaryov at 09:20, 13 Грозника 2006

2006-07-13T09:20:06Z

Нова сторонка

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

[[Category:Siberian]]

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