Представляю вашему вниманию набор макросов для смены раскладки клавиатуры на тот случай, если вы напечатаете текст не теми буквами.
Используя эти макросы и сделав всего лишь несколько кликов, вы сможете:
- Заменить английские буквы на русские во всём тексте
- Заменить английские буквы на украинские во всём тексте
- Заменить русские буквы на английские во всём тексте
- Заменить русские буквы на украинские во всём тексте
- Заменить украинские буквы на английские во всём тексте
- Заменить украинские буквы на русские во всём тексте
- Заменить английские буквы на русские в выделенном фрагменте текста
- Заменить английские буквы на украинские в выделенном фрагменте текста
- Заменить русские буквы на английские в выделенном фрагменте текста
- Заменить русские буквы на украинские в выделенном фрагменте текста
- Заменить украинские буквы на английские в выделенном фрагменте текста
- Заменить украинские буквы на русские в выделенном фрагменте текста
Пояснение кода
Первые примеры кода выполняют полную проверку всего текста и меняют в нём все символы на те, которые нужно. Для того чтобы выполнить замену символов только в выделенном фрагменте тексте, достаточно заменить одну строку:
Кракозябры вместо русских букв в Windows 10 применяем 2 метода исправления ситуации
Set rDoc=ActiveDocument.Range на Set rDoc=Selection.Range
Макрос замены английских букв на русские во всём тексте
Макрос замены английских букв на украинские во всём тексте
Макрос замены русских букв на английские во всём тексте
Макрос замены русских букв на украинские во всём тексте
‘Автоматическая конвертация всех символов в тексте с русских на украинские Sub autoConvertRuToUa() Dim i As Integer Dim sUa As Variant Dim sRus As Variant Dim rDoc As Range Set rDoc = ActiveDocument.Range ‘Список букв которые нужно менять (sRus — это русские символы которые нужно менять. sUa — это украинские символы, которые подставляются вместо русских) sRus = Array(«ё», «ъ», «ы», «э», «Ё», «Ъ», «Ы», «Э») sUa = Array(«‘», «ї», «і», «є», «?», «Ї», «І», «Є») Application.ScreenUpdating = False ‘Запрещаем обновление экрана во время работы макроса With rDoc.Find ‘заменяем все русские символы на соответствующие украинские .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .MatchWildcards = False .Format = True .MatchCase = True For i = LBound(sRus) To UBound(sUa) .Text = sRus(i) .Replacement.Text = sUa(i) .Execute Replace:=wdReplaceAll Next i End With Application.ScreenUpdating = True ‘Обновляем экран End Sub
Макрос замены украинских букв на английские во всём тексте
Макрос замены украинских букв на русские во всём тексте
‘Автоматическая конвертация всех символов в тексте с украинских на русские Sub autoConvertUaToRu() Dim i As Integer Dim sUa As Variant Dim sRus As Variant Dim rDoc As Range Set rDoc = ActiveDocument.Range ‘Список букв которые нужно менять (sUa — это украинские символы которые нужно менять. sRus — это русские символы, которые подставляются вместо украинских) sUa = Array(«‘», «ї», «і», «є», «?», «Ї», «І», «Є») sRus = Array(«ё», «ъ», «ы», «э», «Ё», «Ъ», «Ы», «Э») Application.ScreenUpdating = False ‘Запрещаем обновление экрана во время работы макроса With rDoc.Find ‘заменяем все украинские символы на соответствующие русские .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .MatchWildcards = False .Format = True .MatchCase = True For i = LBound(sUa) To UBound(sRus) .Text = sUa(i) .Replacement.Text = sRus(i) .Execute Replace:=wdReplaceAll Next i End With Application.ScreenUpdating = True ‘Обновляем экран End Sub
Макрос замены английских букв на русские в выделенном фрагменте текста
Макрос замены английских букв на украинские в выделенном фрагменте текста
Макрос замены русских букв на английские в выделенном фрагменте текста
Макрос замены русских букв на украинские в выделенном фрагменте текста
‘Конвертация выделенных символов в тексте с русских на украинские Sub convertRuToUa() Dim i As Integer Dim sUa As Variant Dim sRus As Variant Dim rDoc As Range Set rDoc = Selection.Range ‘Список букв которые нужно менять (sRus — это русские символы которые нужно менять. sUa — это украинские символы, которые подставляются вместо русских) sRus = Array(«ё», «ъ», «ы», «э», «Ё», «Ъ», «Ы», «Э») sUa = Array(«‘», «ї», «і», «є», «?», «Ї», «І», «Є») Application.ScreenUpdating = False ‘Запрещаем обновление экрана во время работы макроса With rDoc.Find ‘заменяем все русские символы на соответствующие украинские .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .MatchWildcards = False .Format = True .MatchCase = True For i = LBound(sRus) To UBound(sUa) .Text = sRus(i) .Replacement.Text = sUa(i) .Execute Replace:=wdReplaceAll Next i End With Application.ScreenUpdating = True ‘Обновляем экран End Sub
Макрос замены украинских букв на английские в выделенном фрагменте текста
Макрос замены украинских букв на русские в выделенном фрагменте текста
‘Конвертация выделенных символов в тексте с украинских на русские Sub convertUaToRu() Dim i As Integer Dim sUa As Variant Dim sRus As Variant Dim rDoc As Range Set rDoc = Selection.Range ‘Список букв которые нужно менять (sUa — это украинские символы которые нужно менять. sRus — это русские символы, которые подставляются вместо украинских) sUa = Array(«‘», «ї», «і», «є», «?», «Ї», «І», «Є») sRus = Array(«ё», «ъ», «ы», «э», «Ё», «Ъ», «Ы», «Э») Application.ScreenUpdating = False ‘Запрещаем обновление экрана во время работы макроса With rDoc.Find ‘заменяем все украинские символы на соответствующие русские .ClearFormatting .Replacement.ClearFormatting .Forward = True .Wrap = wdFindStop .MatchWildcards = False .Format = True .MatchCase = True For i = LBound(sUa) To UBound(sRus) .Text = sUa(i) .Replacement.Text = sRus(i) .Execute Replace:=wdReplaceAll Next i End With Application.ScreenUpdating = True ‘Обновляем экран End Sub
Вас может заинтересовать
- Автоматическое заполнение ячеек текущей датой в VBA Excel
- Определение координат активной ячейки в VBA Excel
- Автоматическое добавление даты в ячейку Excel при изменении другой ячейки
- Защита макроса паролем. Как защитить код VBA от просмотра и редактирования
- Макрос выделения приставки, корня, суффикса и окончания в Word
Источник: d-nik.site
Иероглифы вместо русских букв на Windows. Как исправить?
Заменить русские буквы на английские в Excel
Часто бывает, что в тексте вместо английских букв (A, B, C, E, K, M, H, O, P, T) случайно введены буквы на русской раскладке. В результате слова, например, тable содержат ошибку. А если все буквы прописные (TABLE), то ошибку вовсе не заменить.
Такие ошибки накладывают ограничения на сортировку и поиск нужных данных. Для удаления этих ошибок служит функция =УБРАТЬСЛУЧКИРИЛ(ТЕКСТ), которая позволит заменить русские буквы на латинские.
Внимание! Не путайте ее с функцией транслитерации. Так как она не переводит б в b, п в p. Функция именно исправляет «Опечатки», т.е в переводится в b, т в t и так далее.
Функция имеет один аргумент
- ТЕКСТ — строка в которой необходимо заменить случайно введенные русские буквы на английские.
Ниже приведен пример работы данной формулы.
Код на VBA
Функция входит в состав надстройки VBA-Excel. Ниже привожу код для изучения.
Public Function УБРАТЬСЛУЧКИРИЛЛ(ТЕКСТ As String) As String Dim Rus As Variant Dim Eng As Variant Dim i As Double Dim j As Double Dim simb As String Dim FindLatin As Boolean Dim simbtrans As String Dim MergeText As String Eng = Array(«a», «b», «c», «e», «k», «m», «n», «h», «o», «p», «t», «u», «y», «A», «B», «E», «K», «M», «O», «P», «C», «T», «H», «Y») Rus = Array(«а», «в», «с», «е», «к», «м», «н», «н», «о», «р», «т», «и», «у», «А», «В», «Е», «К», «М», «О», «Р», «С», «Т», «Н», «У») For i = 1 To Len(ТЕКСТ) simb = Mid(ТЕКСТ, i, 1) FindLatin = False For j = 0 To 21 If Rus(j) = simb Then simbtrans = Eng(j) FindLatin = True Exit For End If Next If FindLatin Then MergeText = MergeText simb Next УБРАТЬСЛУЧКИРИЛЛ = MergeText End Function
Надстройка
VBA-Excel
Надстройка для Excel содержит большой набор полезных функций, с помощью которых вы значительно сократите время и увеличите скорость работы с программой.
Источник: micro-solution.ru
Транслит русских букв в английские
Онлайн сервис для транслитерации русских букв в английские по ГОСТ стандарту с возможностью указать параметры для замены пробелов, регистра символов и удаления знаков препинания. В текстовое поле введите русскоязычный текст, выберите необходимые параметры и нажмите кнопку «Перевести в латиницу». Для отмены последнего действия воспользуйтесь кнопкой «Отменить перевод».
Сервис транслитерации кириллицы в латиницу
Спецсимволы — знаки препинания, кавычки, табуляторы и переносы строк. То есть всё, кроме букв, цифр, пробелов, тире и знаков подчёркивания. Вырезать специальные символы необходимо при формировании ЧПУ для страниц сайта.
Транслитерация — перевод букв одного языка в буквы другого с сохранением звуковой составляющей. Используется для передачи информации, когда нет возможности сделать это на родном языке. Например, когда буквы языка не поддерживаются устройством ввода или заполняемое поле поддерживает только английский алфавит.
Если при работе сервиса возникли проблемы, то сообщайте о них в комментариях.
Источник: realadmin.ru