Проблема с SendKeys

[Vadim39]

Нужно запустить из макроса диалог поиска и замены, причем курсор должен оказаться в начале поля замены.
Если вызвать Dialogs(wdDialogEditReplace).Show, то после выполнения замены появляется сообщени об ошибке. Кроме того, я не знаю как перемещать курсор внутри диалогового окна.
Если же вызывать диалог с помощью SendKeys "^h", все отлично, и следующие за ним SendKeys "{TAB}"
SendKeys "{HOME}"
ставят курсор в нужное место, но возникает другая проблема: все это работает только, в том случае, если в момент вызова раскладка клавиатуры английская, если же русская - вместо вызова диалога в документ впечатываются "h" и знак табулятора.
Если принципиального решения не существует, то может кто-нибудь подскажет, как написать скрипт для определения и управления раскладкой клавиатуры.

ЗарСпасБол!

[Скрипт]

Vadim39, зачем вам вызывать окно "Найти и заменить" с помощью макросов? В VBA-Word есть объект "Find", который аналог окну "Найти и заменить".

[Vadim39]

Дело в том, что мне нужно создать рабочую среду для редактора. Скрипт работает таким образом, что находясь на определенном слове и запустив его он получает подготовленный диалог для замены, в котором, возможно, ему придется подкорректировать поле "Заменить на:".

В принципе, мне удалось решить эту проблему, но совершенно идиотским способом: назначил вызов диалога замены на Ctrl_0. Почему-то SendKeys "^0" запускается из макроса при любой раскладке.
В процессе экспериментов выяснилось, что если назначить на F11, диалог не вызывается при любой раскладке клавиатуры... Полный бред

[Скрипт]

Vadim39: может кто-нибудь подскажет, как написать скрипт для определения и управления раскладкой клавиатуры.

Переключите клавиатуру на нужный язык и запустите процедуру "Procedure_1". Получите число, которое подставьте в процедуру "Procedure_2".

Sub Procedure_1()
    
    'Узнаём идентификатор языка клавиатуры.
    'Вывод результата в View - Immediate Window.
    Debug.Print Application.Keyboard

End Sub

Sub Procedure_2()
    
    'Изменяем язык клавиатуры.
    'Вставляем число, полученное в процедуре "Procedure_1".
    Application.Keyboard 68748313

End Sub

[Скрипт]

Vadim39: Если вызвать Dialogs(wdDialogEditReplace).Show, то после выполнения замены появляется сообщени об ошибке.

Пример кода, который не останавливается при возникновении ошибки:

Sub Procedure_3()
    
    'Команда "On Error Resume Next" позволяет коду продолжить работу,
        'не смотря на ошибку.
    On Error Resume Next

        'Отображаем окно.
        Application.Dialogs(wdDialogEditReplace).Show
        
        'Смотрим, была ли ошибка, если была, то какая.
        If Err.Number <> 0 Then
            'Если ошибка "5372" или "5452", то эта ошибка появляется с результом
                'работы окна "Найти и заменить", например, сколько прошло замен.
                'Не понятно, зачем этот результат выводится в окно с ошибкой.
            If Err.Number <> 5372 Or Err.Number = 5452 Then
                'Выводим на монитор сообщение, что возникла
                    'неизвестная ошибка.
                MsgBox "Непредвиденная ошибка."
                'Выходим из кода.
                Exit Sub
            End If
        End If
    'Команда "On Error GoTo 0" отменяет действие "On Error Resume Next" и
        'делает в объекте "Err" ноль.
    On Error GoTo 0

End Sub

[Vadim39]

Большое спасибо!
А возможно ли с помощью Application.Keyboard управлять также и раскладками (внутри одного языка)? Отдает-то он числа разные для разных раскладок, а вот включает только одну. Имеется в виду, что если запускать эту процедуру с разными числами, соответствующими различным раскладкам внутри одного языка, переключение происходит только на одну из них, вероятно первую.

[Скрипт]

Vadim39, вы встречали людей, которые используют раскладку клавиатуры?

[Vadim39]

Встречал ли я самого себя? Довольно философский вопрос
Мне нередко приходится работать с двуязычными текстами, один из языков английский, другой может варьироваться. В русский я добавляю дополнительную раскладку второго языка. В таком случае, переключение между языками - alt+shift. А между раскладками - contral+shift. На мой вкус, так гораздо удобнее, чем всякий раз переключаться одной комбинацией клавиш между тремя и более состояниями.

[Скрипт]

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

[Vadim39]

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