Создайте приложение для замены символов текста (VBA)

[riviera]

несколько дней назад преподаватель сказала что будет курсовая, сдавать в среду, может сможет кто помочь? буду очень признательна.
Отрывки программы есть небольшие.

Создайте приложение для замены символов текста, набранного при одной раскладке клавиатуры, символами текста другой раскладки (Русской или Английской).
Если текст содержит русские и латинские символы, то при наборе текста возникают ситуация, когда переключатель языка установлен не верно. Программа должна исправлять набранный текст.
Для этого понадобятся два массива. В одном массиве будет храниться раскладка русской клавиатуры, в другой латинской.
Lat = Array("", "q", "w", "e", "r", "t", "y", "u", "i", "o", "p", "[", "]", "a", "s", "d", "f", "g", "h", "j", "k", "l", ";", "'", "z", "x", "c", "v", "b", "n", "m", ",", ".", "/", "`", "Q", "W", "E", "R", "T", "Y", "U", "I", "O", "P", "[", "]", "A", "S", "D", "F", "G", "H", "J", "K", "L", ";", "'", "Z", "X", "C", "V", "B", "N", "M", ",", ".", "/", "`")
Rus = Array("", "й", "ц", "у", "к", "е", "н", "г", "ш", "щ", "з", "х", "ъ", "ф", "ы", "в", "а", "п", "р", "о", "л", "д", "ж", "э", "я", "ч", "с", "м", "и", "т", "ь", "б", "ю", ".", "ё", "Й", "Ц", "У", "К", "Е", "Н", "Г", "Ш", "Щ", "З", "х", "ъ", "Ф", "Ы", "В", "А", "П", "Р", "О", "Л", "Д", "Ж", "Э", "Я", "Ч", "С", "М", "И", "Т", "Ь", "Б", "Ю", ".", "Ё")
Нумерация элементов массива начинается с нуля, поэтому нулевой элемент массива пустой.
Перечислим названия переменных, используемых в процедуре:
t - переменная, для хранения выделенного фрагмента текста.
L - количество символов переменной t.
S - символ переменной t.
Text1 строковая переменная для вывода результатов исправления.
1. В модуле NewMacros шаблона Normal.dot создайте процедуру Исправление. Макрос вызывать нажатием пиктограммы.
2. Опишите массивы, используемые в процедуре.
3. Введите данные в переменную t, используя свойство объекта Selection.Text и определите количество символов L переменной t.
4. В данном фрагменте программы символы русской раскладки клавиатуры заменяются символами латинской раскладки. Добавьте в программу оператор, который бы заменял символы латинской раскладки символами русской раскладки.
Tekst1 = " "
For i = 1 To L
S = Mid(t, i, 1)
For j = 1 To 68
If S = Rus(j) Then S = Lat(j): Exit For
Next j
Tekst1 = Tekst1 & S
Next i
5. Замените выделенный текст переменной Text1, используя объект Selection.

[EducatedFool]

Могу сделать за WMR
Если готов заплатить, обращайся в личку.