1 Тема от snusnu

  • snusnu
  • сержант
  • Неактивен
  • Зарегистрирован: 23.08.2010
  • Сообщений: 13
  • Поблагодарили: 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 Ответ от viter.alex

  • Вставка картинок по порядку
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

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

Сайтviter.alex

3 Ответ от snusnu

  • snusnu
  • сержант
  • Неактивен
  • Зарегистрирован: 23.08.2010
  • Сообщений: 13
  • Поблагодарили: 1

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

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

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

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

4 Ответ от viter.alex

  • Вставка картинок по порядку
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140

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

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

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

Сайтviter.alex

5 Ответ от snusnu

  • snusnu
  • сержант
  • Неактивен
  • Зарегистрирован: 23.08.2010
  • Сообщений: 13
  • Поблагодарили: 1

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

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