![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TIMAGE и WORD [D6, WinXP]
Irishka © (2005-05-13 10:46:00)Ответьте, пожалуйста как вставить картинку из Word в компонент TImage.
Заранее благодарна!
YurikGL (2005-05-16 17:20:00) [21]
> Irishka (16.05.05 17:10) [4]
Пост внимательно читать надо... Особенно про макросы.
WordApplication1.ActiveDocument.InlineShapes.Item(1).Select;
Irishka (2005-05-16 17:10:00) [22]YurikGL, спасибо за помощь, но...
Вот кусок кода!
Пишет ошибку, типа: "Не знаю что такое images!"
procedure TForm1.Button1Click(Sender: TObject);
begin
WordApplication1.ActiveDocument. images.items[1].select;
WordApplication1.activedocument. images.items[1].copy;
Image1.Picture.LoadFromClipboardFormat(WordApplication1.activedocument.images.items[1].copy);
end;
заранее СПАСИБО!!!
YurikGL (2005-05-15 07:52:00) [23]http://www.delphimaster.ru/cgi-bin/anketa.pl?id=1084962208
Для того что-бы узнать, как что-то сделать из Delphi во Word-e надо во Word-е зайти в меню сервис/макрос/начать запись... Потом сделать во Word-e то, что надо сделать из Delphi и закончить запись макроса. И наконец сервис/макрос/макросы...выбираем записанный...изменить и смотрим, как он устроен. После этого первод синтаксиса VBA в синтаксис Delphi осуществляется просто и непринужденно.
Еще одним хорошим инструментом получения знаний являются компоненты типа TWordApplication. Кидаем его на форму, в любом операторе набираем WordApplication1., нажимаем ctrl+пробел и внимательно читаем. Смысл доступных функций и свойств обычно понятен интуитивно.
Будет что-то типа WordApplication.activedocument.images.items[номер].select
Irishka (2005-05-15 07:25:00) [24]YurikGL, вопрос:
=-= А как выбрать рисунок в Ворде, как программа увидет этот рисунок в ВОРДЕ? =-=
YurikGL (2005-05-13 13:48:00) [25]Самый простой способ -
1) Выбрать рисунок во ворде (функция select)
2) Взять рисунок в буфер (функция copy, если правильно помню)
3) Вставить в TImage (Image1.Picture.LoadFromClipboardFormat(...))