[dar1k]

Братья по разуму помогите!!!. Над создать прогу через Delphi, чтоб он выдавал информацию с Ворд_а. Т.е. выводил на отдельную форму какие шрифты(размер, жирность, подч), выравнивание слов имеются в текстовом документе.

Листинг проги моей (открыть текстовый файл)

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  word: TWordApplication;
  ffile: OleVariant;
  doc: _Document;
  confconv: OleVariant;
     format:OleVariant;
begin

  word := TWordApplication.Create(Form1);
  if OpenDialog1.Execute(Handle) = true then
  begin
    DecimalSeparator:='.';
    ffile := OpenDialog1.FileName;
    confconv:=true;
    format:=0;

    doc := word.Documents.Open(ffile, confconv, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam, EmptyParam,
      EmptyParam, EmptyParam,EmptyParam, EmptyParam,format);
    word.Visible := true;

  end;

Админ: Пользуемся тегами для оформления кода!