Как заменить онлайн русские гласные буквы на английские?

Кто сталкивался с онлайн сервисом по замене русских гласных букв на английские — поделитесь ссылкой

0 2019-09-26 02:18:29

Ответов: 2

Для замены русских гласных на английские надо составить таблицу замены

Русские "аяоёэеыиуюАЯОЁЭЕЫИУ­Ю"

Английские "ayoeeeiiuuAYOEEEIIU­U"

Далее делаем макрос

Вкладка разработчик/Макросы кнопка создать

Текст макроса (можно вставить вместо предлагаемого пустого шаблона)

при работе после каждой замены будет выдано сообщение о том сколько символов было изменено.

Sub ReplaceLetters()

'

' http://www.bolshoyvo­pros.ru/questions/115­6769-kak-zamenit-onla­jn-russkie-glasnye-bu­kvy-na-anglijskie.htm­l

'

'

Selection.Find.Clear­Formatting

Selection.Find.Repla­cement.ClearFormattin­g

s = "аяоёэеыиуюАЯОЁЭЕЫИУ­Ю"

t = "ayoeeeiiuuAYOEEEIIU­U"

i = 1

imax = (Len(s))

For i = 1 To imax

With Selection.Find

.Text = Mid(s, i, 1)

.Replacement.Text = Mid(t, i, 1)

.Forward = True

.Wrap = wdFindAsk

.Format = False

.MatchCase = True

.MatchWholeWord = False

.MatchAllWordForms = False

.MatchSoundsLike = False

.MatchWildcards = True

End With

Selection.Find.Execu­te Replace:=wdReplaceAl­l

Next i

End Sub

Учтите - даже таким способом скопипизженый текст распознаётся антиплагиатскими программами. Так что не рискуйте своей репутацией и думайте над текстами своей головой. Можно крупно погореть особенно при проверке на детекторе лжи в некоторых фирмах.