VPF::Вставить в .doc картинку - Форум программистов

p0s0l

Дата 2.6.2005, 10:00 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 6
Всего: 112

Картинку вставить легко в Word-документ... А как вставить в нужном месте ? Очень нужно... Как-то бы привязать к Bookmark'у...

Код

    WordApp := CreateOleObject('Word.Application');
    WordApp.Documents.Add(ExtractFilePath(Application.ExeName) + 'Шаблон отчета.doc');
    WordApp.Visible := False;
    Doc := WordApp.ActiveDocument;
    Bookmarks := Doc.Bookmarks;
    FormFields := Doc.FormFields;

    Bookmarks.Item('Variant').Range.Text := IntToStr(VariantNo);
// и т.д. заполняю поля

    Pic := Doc.Shapes.AddPicture('g:\posol\posol.bmp');
// ЧЕГО ТУТ НАПИСАТЬ ???

    Doc.SaveAs('c:\report2.doc');

--------------------

С уважением, г-н Посол.

Girder

Дата 2.6.2005, 16:53 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 6
Всего: 155

Код

Variant(Doc).Goto(wdGoToBookmark,EmptyParam,EmptyParam,'XXX1').InlineShapes.AddPicture('G:\p0s0l.bmp');

--------------------

Как слышим, так и пишим.
Истина где-то там...

p0s0l

Дата 2.6.2005, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Г-н Посол

Профиль
Группа: Экс. модератор
Сообщений: 3668
Регистрация: 13.7.2003
Где: 58°38' с.ш. 4 9°41' в.д.

Репутация: 6
Всего: 112

Отлично! То что нужно! smile

--------------------

С уважением, г-н Посол.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »