Вставка нескольких изображений в одно слово

Question

Мне нужна помощь в создании макроса, который бы взял изображение, хранящееся в буфере обмена, и вставил его в слово do c. Будет несколько изображений, поэтому последовательные изображения должны быть вставлены в конец документа.

Вот мой текущий код на данный момент

'Создать документ Word и вставить в слово

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

'Вставить в активный конец слова document' ??? пробовал несколько строк, но выдает ошибку «object»

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

Любая помощь будет полезна

Answer 1

Поскольку ваш код создает новый документ при каждом запуске, единственный способ вставить что-либо - вставить, если этот новый документ уже имеет некоторое содержимое. Но поскольку вы даже не указываете шаблон для загрузки, это может означать только «нормальный» шаблон 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