Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: CL | DM;

Вниз

Взоимодействие Word и Delphi   Найти похожие ветки 

 
lewka ©   (2010-02-11 13:40) [0]

Привет!!! Подскажите как вставить картинку, находящуюся в TImage в документ Word. Знаю что надо использовать OLE но какие команды использовать не могу найти. Подскажите


 
YurikGL ©   (2010-02-11 14:12) [1]

Начать можно отсюда http://www.delphimaster.ru/articles/dbtoword/index.html


 
Lewka ©   (2010-02-12 12:37) [2]

как работать с текстом и таблицами я знаю. А как вставить картинку или из TImage или по заданному пути я не знаю. Подскажите пожалуйста!!!


 
12 ©   (2010-02-12 12:40) [3]

включи запись макроса, посмотри что пишется


 
lewka ©   (2010-02-12 13:23) [4]

Мне бы не хотелось использовать макросы. Чисто только через OLE


 
12 ©   (2010-02-12 13:43) [5]


> включи запись макроса, посмотри что пишется

и делай также через OLE


 
Anatoly Podgoretsky ©   (2010-02-12 16:02) [6]


> Мне бы не хотелось использовать макросы. Чисто только через
> OLE

А кто заставляет, ты запись то с использованием не путай.


 
NewZ ©   (2010-02-14 19:58) [7]

Открываешь картинку в Paint"е там или другом редакторе. Ctrl-C. Дальше запускаешь Word. Идешь Сервис - Макрос - Начать запись.

Всавляешь картинку.

Идешь Сервис - Макрос - Остановить запись.
Потом Сервис - Макрос - Изменить.

Смотришь код на VB. Переводишь на Delphi и ты в шоколаде.


 
lewka ©   (2010-02-15 20:55) [8]

Вот попробовал такой код
procedure TForm1.Button1Click(Sender: TObject);
var MsWord:Variant;
begin
try
MsWord:= CreateOleObject("Word.Application");
except
   ShowMessage("Не могу запустить MS Word");
     end;

MsWord.Visible := True;
MsWord.Documents.Add;
MsWord.ion.InlineShapes.AddPicture("c:\1.jpg", LinkToFile:=False, SaveWithDocument:=True);
MsWord.Free;

но выдает ошибку "Method "ion" not supported by automation object". Но почитал, что пользуются такой командой. Подскажите почему ошибка появляется


 
12 ©   (2010-02-16 09:45) [9]

ну и сотри ion :)
имхо, там было select ion, но там где ты читал некачественно копипастнули откудато


 
YurikGL ©   (2010-02-27 06:58) [10]


> MsWord.ion.InlineShapes.AddPicture("c:\1.jpg", LinkToFile:
> =False, SaveWithDocument:=True);
>

скоре всего не ion а selection :)



Страницы: 1 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.49 MB
Время: 0.09 c
15-1266819424
b/@.
2010-02-22 09:17
2010.08.27
Нужен драйвер USB flash -> DVD-дисковод


2-1271530750
[true]TRIx
2010-04-17 22:59
2010.08.27
массив pointer, обратиться к ячейке


15-1268404840
Илья_
2010-03-12 17:40
2010.08.27
Ошибка при отладке программы с помощью функции Trace into


15-1265977848
TStas
2010-02-12 15:30
2010.08.27
Из любопытства: как функция возвращает значение?


2-1270199599
AlexCAHEK
2010-04-02 13:13
2010.08.27
TImage