Delphi! Программка для считывания данных из Word

[ya_yanchik-2909]

Всем здравствуйте!!
Мое задание:
1. Создать программу для считывания текста (ФИО, №) файлов из Ворда. То есть загружаем документ Word в программу, а программа автоматически просматривает информацию из каждого загруженного документа - Фамилию Имя Отчество и Номер(это в самом документе написано), и формирует в таблицу эти данные. А еще хотелось бы, чтобы этот документ тоже сохранялся в этой таблице, чтобы его всегда можно было открыть из программы.

file:///C:/Documents%20and%20Settings/%D0%A8%D0%B0%D1%85%D0%B0%D0%BD%D0%B E%D0%B2%D0%B0/%D0%A0%D0%B0%D0%B1%D0%BE%D1%87%D0%B 8%D0%B9%20%D1%81%D1%82%D0%BE%D0%BB/%D0%A8%D0%B5%D0%BB%D0%BE%D0%B2%D1%8 1%D0%BA%D0%B8%D1%85/%D0%91%D0%B5%D0%B7%D1%8B%D0%BC%D1%8 F%D0%BD%D0%BD%D1%8B%D0%B9.JPG

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, Grids,ShellApi;

type
TForm1 = class(TForm)
Button1: TButton;
StringGrid1: TStringGrid;
Label1: TLabel;
procedure Label1Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
s:string;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var FindFile: TSearchRec;
k:integer;
begin
k:=2;
//if OpenDialog1.Execute then

if FindFirst('d:\*.docx', faAnyFile, FindFile)=0
then begin

StringGrid1.Cells[1, 1]:=FindFile.Name;
StringGrid1.Cells[2, 1]:=FindFile.Name;
StringGrid1.Cells[3, 1]:=FindFile.Name;
StringGrid1.Cells[4, 1]:=IntToStr(FindFile.Size)+' KB';

while FindNext(FindFile)=0 do
begin
StringGrid1.Cells[1, k]:=FindFile.Name;
StringGrid1.Cells[2, k]:=FindFile.Name;
StringGrid1.Cells[3, k]:=FindFile.Name;
StringGrid1.Cells[4, k]:=IntToStr(FindFile.Size)+' KB';
k:=k+1;
end;

FindClose(FindFile);
end;
//ShellExecute (Form1.Handle, nil, PChar(sait), nil, nil, SW_RESTORE);

end;

procedure TForm1.FormCreate(Sender: TObject);
begin

StringGrid1.Cells[1,0]:='FIO';StringGrid1.Cells[0,1]:='1';
StringGrid1.Cells[2,0]:='№ Производства по делу';StringGrid1.Cells[0,2]:='2';
StringGrid1.Cells[3,0]:='Ссылка';StringGrid1.Cells[0,3]:='3';
StringGrid1.Cells[4,0]:='Размер';StringGrid1.Cells[0,4]:='4';

end;
procedure TForm1.Label1Click(Sender: TObject);
begin
s:='d:\петров.docx';
shellapi.ShellExecute(Application.H andle, 'open',pChar(s),'',pChar(extractfil epath(s)),SW_SHOWDEFAULT)
//s - имя файла
end;

{procedure TForm1.StringGrid1CellsClick(Column : TColumn);
begin
if Column.Field.FieldName='Name' then
ShellExecute(0, 'open', PChar(Table1.FieldByName('Name').As String), nil, nil, SW_SHOWNORMAL);
end;
}

end.

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

Помогите пожалуйста!!!
Спасибо =))

_____
Код программы нужно выделять (форматировать) тегами [CODE] (читать FAQ)
Модератор