Итак, начнем. Для начала добавим две библиотеки для работы с "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
Если у Вас возникли вопросы, идеи, предложения или какие-либо мысли, пишите, не стесняйтесь!
