Определение нерусских букв в русском тексте (14.05.2017).

2017 - Май

14.05.2017 13:29

← Качественное определение метанола в растворах (13.05.2017).		Мышь для левши из мыши правши (18.05.2017). →

Необходимо при:
- проверке сообщения на спам. Спамеры любят русские буквы заменять английскими;
- при копировании текста (например, химических формул) проверяются ошибки писавших этот текст. Это для недалекого человека "C₂H₅OH" (латиница) и "С₂Н₅ОН" (кириллица) это одно и то же - но не для поисковиков и ученых. А записи формул на кириллице в интернете часто попадаются.

Сначала была идея написать свою программу. Но потом нашел в интернете решение, подходящее для пользователей Office. Тест вставляется в лист Excel, выставляются автоматическая высота строк и перенос по словам. Далее - выделяется весь текст и выполняется макрос:

Sub vRed_English()
    Dim rTemp As Range, lTemp As Long
    For Each rTemp In Selection
        For lTemp = 1 To Len(rTemp)
            If Mid$(rTemp, lTemp, 1) Like "[A-Za-z]" Then rTemp.Characters(Start:=lTemp, Length:=1).Font.ColorIndex = 3
    Next lTemp, rTemp
End Sub

Теги:

Обновлено ( 16.05.2017 12:25 )