1

Тема: Вставка картинок по порядку

Нужно вставить ряд изоброжений из папки в водровский документ.
Вставляю следующим образом

Set objWord = CreateObject("Word.Application")
objWord.visible = True
Set objDoc = objWord.Documents.Add()
Set objSelection = objWord.Selection
Set objShape = objDoc.inlineShapes

' Вставка картинки 1
objShape.AddPicture("D:\test\1.jpg")

'в конец документа
objDoc.Application.Selection.EndOf
objDoc.Characters.Last.Select
objSelection.Collapse
objSelection.TypeParagraph

' Вставка картинки 2
objShape.AddPicture("D:\test\2.jpg")

Но картинки вставляются в обратном порядке.

Как вставить картинку в конец документа?

2

Re: Вставка картинок по порядку

Потому что вы не указываете куда именно нужно вставлять картинку.

'Переход в конец документа
Selection.EndKey wdStory

'Вставка
objShape.AddPicture("D:\test\2.jpg", Range:=Selection.Range)
Лучше день потерять — потом за пять минут долететь!

3

Re: Вставка картинок по порядку

К сожалению не получилось.
Скрипт не вордовский, а внешний - виндовый. В команде

objShape.AddPicture("D:\test\2.jpg", Range:=Selection.Range)

второй параметр не передается. Выдает ошибку "Недопустимое использование скобок при вызове процедуры Sub"

4

Re: Вставка картинок по порядку

ну не используйте скобки. В полном виде можно так
objShape.AddPicture "D:\test\2.jpg", False, True, objSelection.Range

Лучше день потерять — потом за пять минут долететь!

5

Re: Вставка картинок по порядку

Все отлично работает. Спасибо  smile