Из Delphi в Word

[ЯПрограмист]

Всем доброго времени суток. По учебе задали создать интерфейс в Делфи, в котором ввобишь текст а он передается в документ ворда. И можно из этого же документа считать в делфи. Дитературы мало по этой теме нашел.

Пока что создал следующее.

unit UWord;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Memo1: TMemo;
    WordDocument1: TWordDocument;
    WordApplication1: TWordApplication;
    WordFont1: TWordFont;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  MSWord:Variant;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);// Создаем документ и сохраняем
begin
  try
    MsWord := GetActiveOleObject('Word.Application');
  except
    try
      MsWord := CreateOleObject('Word.Application');
      MsWord.Visible := True;
    except
      Exception.Create('Error');
    end;
  end;
  MSWord.Documents.Add;
  MSWord.ActiveDocument.SaveAs('C:\1.doc');
  MsWord.ActiveDocument.Close;
end;

procedure TForm1.Button2Click(Sender: TObject);// Открываем документ
begin
  MSWord.Documents.Open('C:\1.doc');
end;

procedure TForm1.Button3Click(Sender: TObject);
Var
  MyText:string;
begin
  MyText:=memo1.Text;
  //Word.ion.TypeText(Text:=MyText);
  //Word.ion.TypeParagraph;end.

________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.