Работа с Word

← →
Александр1 © (2004-03-10 19:15) [0]

Привет всем!!!!
Таким способом можно добавлять text в Word, чертить таблицую.
А КАК ДОБАВИТЬ РИСУНОК В WORD ИЗ ФАЙЛА ИЛИ IMAGE????
Зарание спасибо!
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
if Button1.Caption = "Выход" then
begin
Application.Terminate;
Exit;
end
else
Button1.Caption := "Выход";
Panel1.Visible := true;
WordApp := WordApp.Create(nil);
WordApp.Visible := true;
Template := "Normal";
OpenAsTemplate := false;
WordApp.Documents.Add(Template, OpenAsTemplate);
WordDoc1.ConnectKind := ckAttachToInterface;
WordDoc1.ConnectTo(WordApp.ActiveDocument);
Template := WordDoc1.Range;
WordDoc1.Paragraphs.Add(Template); // параграф #1
WordDoc1.Paragraphs.Add(Template); // параграф #2
WordDoc1.Paragraphs.Add(Template); // параграф #3
WordDoc1.Paragraphs.Item(1).Range.InsertBefore("Привет, Игорь !!!");
WordDoc1.Paragraphs.Item(2).Range.InsertBefore("Переключившись в программу, можно менять текст ячеек !");
WordDoc1.Paragraphs.Item(1).Range.Font.ColorIndex := 11;
WordDoc1.Paragraphs.Item(2).Range.Font.ColorIndex := 5;

//WordDoc1.PrintOut;{Печать документа Word}
end;

← →
Delphi5.01 © (2004-03-10 20:34) [1]

Ni znau kak nashot fotki a chto kasaetsa nastoiashei raboti s Word, vse sovetuiut OLE 2.0. Ia muchalsa 3 nedeli, iskal komponenti dla delfi no bez vixoda, net podhodashih komponentov, a esli est to net dokumentacii.
Daje vnutrenni bitovi format razbiral, no i zdes dada bil podrabotal, net nigde novoi infi, a staraia na xp ne pashet! :-((

Kstati esli ia ne oshibaus WordDoc ssilaetsa na dll samogo office-a. I na OLE 2.0

No vsoje est malaia infa, no tolko po knigam. Bolshenstvo v spravochnikah!

Jelau udachi! :-)))

← →
хз © (2004-03-10 20:35) [2]

Удалено модератором

← →
Delphi5.01 © (2004-03-10 20:40) [3]

2 хз ©
Glavni smisl lejit v stokah
WordDoc1.Paragraphs.Item(1).Range.InsertBefore("Привет, Игорь !!!");
:-)))
Eto shudka, a na samom dele eto nado, doljni je programisti razvivatsa, ne tolko batoni sipat na formu.
Viuchit sam potom drugogo nauchit tot v zamen chtoto drugoe nauchit, tak i proishodit evolucia!!!
Vo kak skazal :-)))

← →
Александр1 © (2004-03-11 05:21) [4]

хз -Да надо! Мне надо каким-то образом вставить рисунок в Word!
Delphi5.01 - А по русски можно?

← →
evvcom (2004-03-11 08:06) [5]

Запиши макрос в Word, потом его переложишь на Delphi.

← →
TransparentGhost (2004-03-11 10:09) [6]

S Wordom bistreje rabotat", jesli generit" RTF fajl i potom jego otkrivat".

← →
Александр1 © (2004-03-11 11:13) [7]

evvcom - Ещё бы знать как это сделать???
TransparentGhost - Чё-то не понял????

← →
хз © (2004-03-11 11:15) [8]

Удалено модератором

← →
TransparentGhost (2004-03-11 11:22) [9]

Jesli fajl sozdajosh s nulja, mozhno sozdat" fajl RTF i zapihat" tuda vsjo chto nado, a potom otkrit" jego v Worde.
Chutka pohozhe na napisanije HTML :o)

← →
Карелин Артем © (2004-03-11 11:23) [10]

Посмотри на Королевстве Дельфи(сейчас сайт в дауне) комментарии к статье по работе с вордовскими рисунками, таблицами и т.д. Я там писал код по вставке рисунка.
Под рукой кода нет, заново писать лениво.

хз -Да ладно не обижайся. Я не кричу, а всего лишь спрашиваю!

Ну чё может ещё у каго каки версии ести по этому поводу???

← →
evvcom (2004-03-12 12:45) [13]

> Александр1 © (11.03.04 11:13) [7]
> evvcom - Ещё бы знать как это сделать???

В Word открываешь панель Visual Basic, жмешь кнопку "Запись макроса", потом вставляешь через меню "Вставка>Рисунок" картинку, останавливаешь запись макроса, переходишь в редактор VB и смотришь текст получившегося макроса. То же самое можно делать и c Excel, и c Visio 2003. Потом перекладываешь макрос VB в Дельфи. Как? Тут очень много такого было написано.

← →
KE (2004-03-12 13:29) [14]

лучше там почитай
http://kepten.fatal.ru/doci/delphi/word/page_3.htm

KE - Спасибо!

Работа с Word Найти похожие ветки