VBScript - как отправить нажатия клавиш в Internet Explorer

Question

Я прочитал все вопросы, которые возникли, когда я набрал свой заголовок, а также несколько других веб-страниц, и я до сих пор не нашел ответ, который ищу. Я считаю, что это довольно просто, просто должно быть что-то упущено, так как моя программа ничего не делает.

Вот что я хочу сделать (для практических целей, скажем, я ищу свою любимую дискуссию здесь на SO):

• Загрузите главную страницу SO (stackru.com/).
• Используйте функцию Open File (CTRL+O) в IE, чтобы ввести конкретный адрес страницы, которую я ищу.
• Используйте функцию Выбрать все (CTRL+A), чтобы выделить весь текст для копирования.
• Используйте CTRL+C и CTRL+V, чтобы, соответственно, скопировать и вставить это в текстовый документ для целей презентации.

Вот код, который у меня есть:

' Sets up the objects.
Dim objIE, WshShell, objWord

Set wshShell = WScript.CreateObject ("WSCript.shell") 
Set objIE = CreateObject("InternetExplorer.Application")
Set objWord = Application.CreateObject("Word.Application")

Dim i, strUserID

with CreateObject("InternetExplorer.Application")
wshShell.SendKeys "^O"
.navigate "http://stackru.com/questions/[link of question would go here]"
wshShell.SendKeys "^A"
wshShell.SendKeys "^C"
    AppActivate ("Document1 - Microsoft Word")
wshShell.SendKeys "^V"
end with

По какой-то причине, это не работает так, как я хочу. Какие-либо предложения?