在Word文档中粘贴多个图像

2020-02-15 vba ms-word

我需要构建宏的帮助,该宏将获取存储在剪贴板中的图像并将其粘贴到word文档中。将有多个图像,因此必须将连续图像粘贴到文档的末尾。

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

'创建Word文档并粘贴到Word

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

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

objdoc.ActiveDocument.Content 
objdoc.Collapse Direction:=wdCollapseEnd 
objSelection.Paste.Paste 

任何协助都会有帮助

Answers

由于您的代码每次运行都会创建一个新文档,因此粘贴任何内容的唯一方法是新文档中已经包含一些内容。但是,由于您甚至没有指定要加载的模板,因此只能表示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

Related