Отправляет email-рассылки с помощью сервиса Sendsay

Уроки по Delphi

  Все выпуски  

Уроки по Delphi


Информационный Канал Subscribe.Ru


Исходники лежат тут: Delphi::WAP::Moto E-365

*Номер 14* (2004-04-28)

Урок 16.

Задание: Изучаем работу с Word.

Итак, начнем. Для начала добавим две библиотеки для работы с "Word". Это: Word2000, Word97. Затем добавляем в меню пункт "Word". Кликаем на него 2 раза и пишем обработчик:

procedure TForm1.Word1Click(Sender: TObject);
var
V: Variant;
Direction: olevariant;
i:integer;
begin
// Заносим в переменную свойство "убирания" выделения текста
Direction:=wdCollapseEnd;
// Создаем "Word"-документ
V := CreateOLEObject('Word.Application');
// Делаем его видимым
V.Visible:=true;
V.Documents.Add();
V.Caption:='Гаубица';
// Вставляем первую строчку, она будет выделена
V.Selection.InsertAfter('10-ка лучших'+#13+#13);
// Выбранный текст делаем жирным
V.Selection.Font.Bold:=true;
// Размер шрифта
V.Selection.Font.Size:=16;
// Выравнивание по центру
V.Selection.ParagraphFormat.Alignment:=wdAlignParagraphCenter;
// Убираем выделение
V.Selection.Collapse(Direction);

for i:=1 to 10 do
begin
// Вставляем нашу табличку
V.Selection.InsertAfter(Lst[i].Name+' : '+IntToStr(Lst[i].score)+' - '+Lst[i].Nagr+#13);
end;
// Шрифт
V.Selection.Font.Size:=14;
// Выравнивание по левому краю
V.Selection.ParagraphFormat.Alignment:=wdAlignParagraphLeft;
// Убираем выделение
V.Selection.Collapse(Direction);
// "#13" - перевод курсора на следующую строку
// Добавляем 4 пустых строки
V.Selection.InsertAfter(#13+#13+#13+#13+#13);
// Ставим подпись
V.Selection.InsertAfter('"Гаубица"'+#13+' (c) Stud, 2004');
// Ставим дату и время
V.Selection.InsertAfter(#13+'['+DateToStr(Now)+']/{'+TimeToStr(Now)+'}');
// Выравнивание по правому краю
V.Selection.ParagraphFormat.Alignment:=wdAlignParagraphRight;
// Шрифт
V.Selection.Font.Size:=10;
// Убираем выделение
V.Selection.Collapse(Direction);
end;

Вот собственно и все! На сегодня. До новых встреч! Пока.
Тексты всех предыдущих уроков и самих исходников
можно скачать с http://mywap-f1.h12.ru
Если у Вас возникли вопросы, идеи, предложения или какие-либо мысли, пишите, не стесняйтесь!

© Юрий М. Крылов, 2004.®(15)

Рассылка comp.soft.prog.delphibegin (c)2003-2004 Крылов Ю.М.
Выпуск 14 от 2004-04-28
Подписчиков - 8
Рассылки Subscribe.Ru
Новости сайта My.WAP.F1
На моем сайте можно найти выпуски:
Урок 1
Урок 3
Урок 4
Урок 5
Урок 6
Урок 8
Урок 9
Урок 10

http://subscribe.ru/
E-mail: ask@subscribe.ru
Отписаться
Убрать рекламу


В избранное