Макрос для корректировки текста

[umwelf]

Ребята,помоги написать макрос!!!!
условие

Написать макрос, который бы корректировал текст, набранный в ошибочно выбранной раскладке клавиатуры.

Связать его с клавишами Ctrl+3

пример
Rjkmfcrf -> Колбаска
тщеуищщл -> notebook

[Ципихович Эндрю]

как насчёт ПунтоСвитч?? не пробовали ставить??

[umwelf]

Сообщение от Ципихович Эндрю

как насчёт ПунтоСвитч?? не пробовали ставить??

спасибо кэп)))это лабороторная!!!!

[Ципихович Эндрю]

понятно и тогда какие условия, когда он, макрос должен заработать?

[umwelf]

пишешь текст,выделяешь его,нажимаешь сочетание клавишь и он должен перевестись!!!

[Ципихович Эндрю]

если реально об одном случае, тогда не сложно, просто Ваше
>пишешь текст,выделяешь его,нажимаешь сочетание клавишь и он должен перевестись!!!
Можно понять как - выделил страницу с текстом и давай, парси, труднее будет, так как надо?

[umwelf]

Надо выделить одно слово и перевести его.

[Ципихович Эндрю]

ну это не сложно цикл по количеству буков и замена q на й

For q = 1 To Len(Selection)
If Mid$(Selection, q, 1) = ... Then

End If
Next q

Но торопится с моим советом не надо, может есть и лучше, гугл - запрос транслит в ВБ

[umwelf]

то есть if там будет очень много?
if Mid()=a Then
заменить его на f
if Mid()=в Then
заменить его на d
...
и т.д.


Так?

[Ципихович Эндрю]

во первых
If подряд пишутся так

If .... Then
.....
ElseIf .... Then
.....
ElseIf .... Then
.....
End If

и есть ещё пример

Function MatchUp (CityName As String)
    Matchup = Switch(CityName = "London", "English", CityName _
                    = "Rome", "Italian", CityName = "Paris", "French")
End Function