Делфи и ворд

[Droniwe]

Доброго времени суток мне на практику задали интересный проек но у меня не выходит его довести до ума а времени осталось мало сдать нужно 17 числа если кто может помогите я вкладную код что есть и файл что должно получится заранее спасибо.

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, OleServer, WordXP, OleCtnrs;

type
  TForm1 = class(TForm)
    WordApplication1: TWordApplication;
    Button1: TButton;
    WordFont1: TWordFont;
    WordParagraphFormat1: TWordParagraphFormat;
    procedure Button1Click(Sender: TObject);

  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
 var

    s:WideString;
    separat:String;   // используемый сепаратор как разделитель в тексте по столбцам
   d, separatOV, Column:OleVariant;
begin
// инициализируем нужные переменные
D:=wdCollapseEnd;
Separat:='@'; // нинициализируем сепаратор, допустим символ '@'
separatOV:=separat;
Column:=3;         // инициализируем количество столбцов
s:='';    // обнуляем текстовую переменную
//Соединиться с Сервером Word
WordApplication1.AutoQuit:=true;
WordApplication1.ConnectKind:=ckNewInstance;
WordApplication1.AutoConnect:=true;
WordApplication1.Documents.Add(EmptyParam,EmptyParam,EmptyParam,EmptyParam);
WordApplication1.Options.CheckSpellingAsYouType := False;
WordApplication1.Options.CheckGrammarAsYouType := False;
// соединяемся с сервером шрифта
WordFont1.ConnectTo(WordApplication1.Selection.Font);
WordParagraphFormat1.ConnectTo(WordApplication1.Selection.ParagraphFormat);
WordParagraphFormat1.Alignment:=wdAlignParagraphCenter;
WordApplication1.Selection.Font.Name := 'Times New Roman';

WordApplication1.Selection.Font.Size :=9;
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.Font.Size :=14;
WordApplication1.Selection.InsertAfter('МІНІСТЕРСТВО ОСВІТИ ТА НАУКИ УКРАЇНИ'+#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.Font.Size :=16;
WordApplication1.Selection.InsertAfter('Запорізький інститут економіки та інформаційних технологій' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('відокремлений підрозділ у м. Кривий Ріг' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('Кафедра економіки, фінансів та обліку' +#13);
WordApplication1.Selection.Collapse(D);
WordParagraphFormat1.Alignment:=wdAlignParagraphright;
WordApplication1.Selection.Font.Size :=12;
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('ДО ЗАХИСТУ ДОПУЩЕНА' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('Зав.кафедрою' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('___________________' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter('Д.е.н. проф. Турило А. М.' +#13);
WordApplication1.Selection.Collapse(D);
WordParagraphFormat1.Alignment:=wdAlignParagraphCenter;
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.InsertAfter(#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Selection.Font.Size :=26;
WordApplication1.Selection.Font.Bold := wdToggle;
WordApplication1.Selection.InsertAfter('ДИПЛОМНА  РОБОТА' +#13);
WordApplication1.Selection.Collapse(D);
WordApplication1.Visible :=true;

 end;


end.

[Stilet]

Не ну это конечно круто, но помочь то чем?

[Droniwe]

Сообщение от Stilet

Не ну это конечно круто, но помочь то чем?

НУ доделать до ума помочь а самое главная проблема эта с указанием стяля (Обычный, Заголовок 1, Заголовок 2)ю Сколько искал негде не смог найти примера этого кода.

[Droniwe]

Что некто не поможет?

[MaGWaY_minsk]

Стандартными компонентами тяжко ето бут добиццо.

[Droniwe]

Ну если не стандартными то какими? Я же не против всё переделать главное результат!!