1 Тема от Irina18

  • Irina18
  • сержант
  • Неактивен
  • Зарегистрирован: 22.08.2017
  • Сообщений: 11
  • Поблагодарили: 2
  • За сообщение: 1

Тема: Переключение ракладки клавиатуры в таблице защищенного доку-та Word.

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

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 ?
Представляю два файла. Один с полями элементов управления формы, тут всё работает и другой файл, где надо вставить новый вариант макроса. Файлы тут внешняя ссылка и тут внешняя ссылка. Всем спасибо.