Vba 在word文档中粘贴多个图像

我需要帮助建立一个宏，将采取的图像存储在剪贴板上，并粘贴到word文档它。将有多个图像，因此顺序图像必须粘贴在文档末尾

这是我目前的代码

'创建word文档并粘贴到word

Set wordobj = CreateObject("Word.Application")
Set objdoc = wordobj.Documents.Add
wordobj.Visible = True
Set objSelection = wordobj.Selection
objSelection.Paste

'粘贴到word文档的活动结尾 '??? 尝试了多行，但给出了“对象”错误

---

任何帮助都会很有帮助

因为您的代码每次运行时都会创建一个新文档，所以只有当新文档已经有一些内容时，才可以进行粘贴。但由于您甚至没有指定要从中加载的模板，这只能表示Word的“普通”模板，它不应该包含任何内容。无论如何，它很简单：

Sub Demo()
Dim wordobj As Object, objdoc As Object
Set wordobj = CreateObject("Word.Application")
Set objdoc = wordobj.Documents.Add
With objdoc.Range
  .InsertAfter vbCr
  .Characters.Last.Paste
End With
End Sub

---

感谢您的回复，但是，建议的代码给了我一个属性方法错误。我目前拥有的是一个代码，它将从Internet explorer获取一份报告的屏幕截图。我需要帮助的是一个代码，它将打开word文档并将图像粘贴到word上，如果在文档末尾的活动文档上有多个图像页面，则该代码可以正常工作，没有错误。不管怎样，“wordobj.Documents.Add”-来自您自己的代码-创建一个新文档；它不会打开现有文档。

Sub Demo()
Dim wordobj As Object, objdoc As Object
Set wordobj = CreateObject("Word.Application")
Set objdoc = wordobj.Documents.Add
With objdoc.Range
  .InsertAfter vbCr
  .Characters.Last.Paste
End With
End Sub