Мне нужно соединить два макроса(1-й заменяет написанные русские буквы на аналогичные им на клавиатуре английские(например:кот - rjn), второй наоборот -английские на русские. У меня трудности с написанием условия при котором будет выполняться тот или иной макрос(не знаю необходимые для этого операторы и функции).
Макрос переводящий английские буквы в русские выглядит так(другой идентичен ему, только меняются местами значения k и t:
Sub
k = "fF,<dDuUlLtT`~;:pPbBqQrRkKvVyYjJgGhHcCnNeEaA[{wWxXiIoOmM}}sS'.>zZ"
t = "аАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэюЮяЯ"
n = Int(Len(k))
For i = 1 To n
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = Mid(k, i, 1)
.Replacement.Text = Mid(t, i, 1)
.Forward = True
.Wrap = wdFindContinue
.MatchCase = True
End With
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub

по идеи конструкция условия должна быть такой:

If условие Then
b = "аАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэюЮяЯ"
c = "fF,<dDuUlLtT`~;:pPbBqQrRkKvVyYjJgGhHcCnNeEaA[{wWxXiIoOmM]}sS'.>zZ"
Else
b = "fF,<dDuUlLtT`~;:pPbBqQrRkKvVyYjJgGhHcCnNeEaA[{wWxXiIoOmM]}sS'.>zZ"
c = "аАбБвВгГдДеЕёЁжЖзЗиИйЙкКлЛмМнНоОпПрРсСтТуУфФхХцЦчЧшШщЩьЬъЪыЫэюЮяЯ"
End If
...и дальше блок операторов.
Я не знаю что должно быть условием. Есть ли функция которая определит к какому алфавиту принадлежит это слово или буква? Её б результат можно было бы сделать условием.
заранее спасибо