Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word 2007 (SavePictureWithDocument) / 2 сообщений из 2, страница 1 из 1
10.06.2010, 12:26
    #36680296
VBMart
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word 2007 (SavePictureWithDocument)
Доброго времени суток!
Пробовал искать решение своей проблемы на разных форумах, но, увы, безуспешно.
Пишу программу на Delphi 2006.
Необходимо вставить несколько изображений в документ MS Word 2007.
Использую ОЛЕ( W:=CreateOleObject('Word.Application'); ).
Пробую сделать так:
W.ActiveDocument.Tables.Item(TableNum).Cell(Row, Col).Select; // Выделяю фрагмент для вставки
W.Selection.InlineShapes.AddPicture(FileName, False, True);
Результат - первая картинка отображается. Вместо остальных - пустые рамки по их размерам.

Пробую так:
W.ActiveDocument.Tables.Item(TableNum).Cell(Row, Col).Select; // Выделяю фрагмент для вставки
W.Selection.InlineShapes.AddPicture(FileName, True, False);
Результат - все картинки отображаются. Но необходимо сделать так, чтобы привязки к внешнему файлу не было.

Пробую так:
W.ActiveDocument.Tables.Item(TableNum).Cell(Row, Col).Select; // Выделяю фрагмент для вставки
p:= W.Selection.InlineShapes.AddPicture(FileName, True, False);
p.Select;
p.LinkFormat.SavePictureWithDocument:= True;
p.LinkFormat.BreakLink;
Результат - первая картинка отображается. Вместо остальных - пустые рамки по их размерам.

P.S.: При использовании Word 2003 все работает замечательно. Проблема появилась при переходе на 2007 офис.
...
Рейтинг: 0 / 0
25.06.2010, 06:20
    #36707240
VBMart
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Word 2007 (SavePictureWithDocument)
Может кто-нибудь может посоветовать, в каком направлении копать?
...
Рейтинг: 0 / 0
Форумы / Microsoft Office [игнор отключен] [закрыт для гостей] / Word 2007 (SavePictureWithDocument) / 2 сообщений из 2, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]