Переключение ракладки клавиатуры в таблице документа Word.

[irina181]

Всем удачного дня. Имеется макрос для переключения раскладки клавиатуры макросом, но он написан для элементов управления формы.

Private Declare Function ActivateKeyboardLayout _
                          Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Const kb_lay_ru As Long = 68748313, kb_lay_en As Long = 67699721

Sub Klava()
    Select Case Selection.Rows(1).index
        Case 1 To 3, 8 To 11
            ActivateKeyboardLayout kb_lay_ru, 0
        Case 4 To 7
            ActivateKeyboardLayout kb_lay_en, 0
    End Select
End Sub

Как бы переделать этот макрос, чтобы его можно было использовать с полями формата RTF ? Всем спасибо. Файл приложен. Файл защищён и разрешение только для чтения. Сейчас вышлю файл в котором можно вводит данные в поля.

[irina181]

Новый файл.