如何在Word中粘贴复制的剪贴板图像

Question

我正在尝试截取屏幕截图，将其粘贴到新的Word文档中，然后保存在本地区域。

以下功能正在运作：

1. 创建新的Word文档并保存。
2. 拍摄屏幕截图。

的问题：

1. 在创建，保存和关闭Word文档后进行屏幕截图。
2. 执行此代码后，它会在Excel中粘贴屏幕截图。
3. 没有粘贴Word文档中的屏幕截图。

4. 我尝试使用

   无效地将屏幕截图粘贴到Word文档中

   • wshShell.SendKeys "^v"

   • wshShell.Selection.Paste

期望：

1. 在创建Word文档之前先进行一次扫描。
2. 自动粘贴Word文档并保存。

Set wshShell = CreateObject("WSCript.shell")
Sleep 2000
keybd_event VK_MENU, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0
keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0
Sleep 35000
Set objWord = CreateObject("Word.Application")
objWord.Visible = True
Set objDoc = objWord.Documents.Add()
Sleep 5000
wshShell.SendKeys "^{v}"
wshShell.SendKeys "~"
Sleep 5000
objDoc.SaveAs ("D:\Srene\sample.docx")
objWord.Quit

Answer 1

尝试wait = true

SendKeys string [，wait]

等待：可选。指定等待模式的布尔值。如果为False（默认值），则在发送密钥后立即将控制权返回给过程。 如果为True，则必须先处理击键，然后才能将控件返回到该过程。

http://msdn.microsoft.com/en-us/library/gg278655(v=office.14).aspx