QTP / UFT - Включить A Выбрать весь текст в функции SendKeys

Question

Итак, у меня есть функция отправки ключей:

Код:

Public Function sendKeys(Obj, strParam)
    Wait(1)
    Obj.Click
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.SendKeys strParam
    set shell = Nothing
    Wait(2)
End Function

Но я хотел бы включить в эту функцию способ сначала выбрать текст в поле WebEdit , а затем ввести данные.

На данный момент я делаю вот что:

Код:

call sendKeys( Browser("openurl:= ").Page("url:= ").WebElement("xpath:= "), "^a")
call sendKeys( Browser("openurl:= ").Page("url:= ").WebElement("xpath:= "), "text")

По сути, я хотел бы объединить вышеприведенное в один оператор, который выполняет выделение всего текста и вставляет необходимый текст.

Answer 1

Просто добавьте строку в функцию sendkeys:

Public Function sendKeys(Obj, strParam)
    Wait(1)
    Obj.Click
    Dim shell
    Set shell = CreateObject("WScript.Shell")
    shell.SendKeys "^a" 'New line
    shell.SendKeys strParam
    set shell = Nothing
    Wait(2) 
End Function