0

我已经阅读了输入标题时出现的所有问题以及其他几个网页，但我仍然没有找到我正在寻找的答案。我相信这相当简单，只是因为我的程序没有做任何事情，所以必须遗漏一些东西。

这就是我想要它做的事情（出于所有实际目的，假设我正在搜索我最喜欢的关于 SO 的讨论）：

  • 加载主 SO 页面 (stackoverflow.com/)。
  • 利用 IE 的打开文件 (CTRL+O) 功能输入我要查找的页面的具体地址。
  • 利用全选 (CTRL+A) 功能突出显示要复制的整个文本。
  • 分别使用 CTRL+C 和 CTRL+V 将其复制并粘贴到 Word 文档中以进行演示。

这是我到目前为止的代码：

' 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

出于某种原因，这不是我想要的方式。有什么建议么？

4

0 回答 0