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

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

vba excel

Vba 如何在Word中粘贴复制的剪贴板图像,vba,excel,Vba,Excel,我正在尝试截图，粘贴到一个新的Word文档，然后保存在本地区以下功能正在运行：创建新的Word文档并保存拍摄屏幕截图问题：它在创建、保存和关闭Word文档后拍摄屏幕截图执行此代码后，它会将该屏幕快照粘贴到Excel中它不是将屏幕截图粘贴到Word文档中我尝试将屏幕截图粘贴到Word文档中，但未成功 wshShell.SendKeys“^v” wshShell.Selection.Paste 期望：在创建Word文档之前进行一次快照自动粘贴到Word文档并保存 Try w

我正在尝试截图，粘贴到一个新的Word文档，然后保存在本地区

以下功能正在运行：

创建新的Word文档并保存

拍摄屏幕截图

问题：

它在创建、保存和关闭Word文档后拍摄屏幕截图

执行此代码后，它会将该屏幕快照粘贴到Excel中

它不是将屏幕截图粘贴到Word文档中

我尝试将屏幕截图粘贴到Word文档中，但未成功

```
wshShell.SendKeys“^v”
```
```
wshShell.Selection.Paste
```

期望：

在创建Word文档之前进行一次快照

自动粘贴到Word文档并保存

Try wait=true

SendKeys字符串[，等待]

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

这看起来像VBA，而不是VBScript。您在问题中提到了Excel，但我在代码中没有看到任何对Excel的引用。这是Excel宏吗？是的，它是VB脚本。我正在Excel宏中使用精简。在excel中单击一个按钮后，它将开始执行。然后它就不是VBScript了。这是一个VBA宏。我来换标签。

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