Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.47 MB
Время: 0.043 c