Добавить изображение в конце слова документа

Question

Я создал userform в Excel, где люди вводят определенную информацию и одним нажатием кнопки создает текстовый документ.

Все это прекрасно работает, но я также включил опцию добавления изображений в этот текстовый документ, чтобы в определенный момент люди могли выбрать изображение.

Путь к файлу для этих изображений помещается в массив, и после того, как вся информация из userform была добавлена ​​в документ word, необходимо добавить изображения. Это также работает, но по какой-то причине они добавляются вверху документа, а не внизу. Могу ли я указать, что я хочу добавить его внизу?

Код, который у меня сейчас есть:

Set wrdApp = New Word.Application
Set wrdDoc = wrdApp.Documents.Add

With wrdDoc

For i = 1 To UBound(ImageArr)
        .InlineShapes.AddPicture Filename:=ImageArr(i)      
Next i

Answer 1

При добавлении содержимого в документ Word рекомендуется указывать спецификацию c target Range. Это сложный топи c, и часто есть несколько вариантов создания Range ...

Но для получения конца документа я обычно использую:

Dim rngEndOfDoc as Range
Set rngEndOfDoc = wrdDoc.Content
rngEndOfDoc.Collapse(0)  'Word enumeration: wdCollapseEnd

Затем добавьте картинку

wrdDoc.InlineShapes.AddPicture Filename:=ImageArr(i), Range:=rngEndOfDoc