Я прочитал каждый вопрос, который возник, когда я набрал свой заголовок, а также несколько других веб-страниц, и я до сих пор не нашел ответа, который ищу. Я считаю, что это довольно просто, просто должно быть что-то упущено, поскольку моя программа ничего не делает.
Вот что я хочу сделать (для всех практических целей, скажем, я ищу свою любимую дискуссию здесь, на SO):
- Загрузите главную страницу SO (stackoverflow.com/).
- Используйте функцию «Открыть файл» (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://stackoverflow.com/questions/[link of question would go here]"
wshShell.SendKeys "^A"
wshShell.SendKeys "^C"
AppActivate ("Document1 - Microsoft Word")
wshShell.SendKeys "^V"
end with
По какой-то причине это не работает так, как я хочу. Какие-либо предложения?
Document 1
(обратите внимание на пробел). - person Jeremy J Starcher   schedule 07.11.2013