即自动化VBA，立即使用sendkeys延迟发送键

Question

我已经编写了一个代码，每当网页导航并使用vba粘贴到Word文档中，我成功地完成了屏幕截图，但是我得到了上次花费的屏幕截图，而不是现在一个。

每当我按PRINT屏幕屏幕时，它是粘贴的屏幕截图，而不是现在。我尝试做延误并提出论点为真，false没关系。

这是我在Class1模块中尝试的：

Option Explicit
Dim WithEvents ie As InternetExplorer
Dim wordapp As Object
Dim wrdDoc As Object
Dim t As Date
Sub Example()
Set wordapp = CreateObject("word.Application")
wordapp.Visible = True
Set wrdDoc = wordapp.Documents.Add
Set ie = New InternetExplorer
ie.navigate "http://www.csee.wvu.edu/~riggs/html/select_example.html"
Do Until ie.readyState = READYSTATE_COMPLETE: DoEvents: Loop
test
End Sub
Private Function href_onclick() As Boolean
Application.SendKeys "{44}"
wordapp.Selection.Paste
End Function

在模块中

Sub initialise()
Set ev = New Class1
ev.Example
End Sub

Answer 1

尝试 application.sendkeys" {44}"，true

第二个参数告诉代码的执行等待操作完成

Answer 2

在所有挣扎之后，我提出了这个解决方案，我只是做出了糊状选项，等待3秒钟，直到将图片加载到剪贴板上.... :)带有真实选项的sendkeys根本不起作用。