Считаьт информацию из документов MS Word

[Katus]

Необходимио считать информацию из документов MS Word. Но не понятно как... Можете помочь разобраться со стуктурой составления файлов .doc/.docx ибо многие сайты говорят не о том что мне требуется...

Вот мой программный код.. Он чет тупит, хотя написан верно, без ошибок....

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

const
  adr0='WSWord Test\Result\';
  adr1='WSWord Test\TXT\';
  adr2='\1.txt';

var
  f, ef: array [0..9] of text;
  s, es: array [0..9] of string;
  c: array [0..9] of char;
  tr: boolean;
  i,j: byte;

begin
for i:=0 to 9 do
  begin
    s[i]:=adr1+IntToStr(i)+adr2;
    assignfile(f[i], s[i]);
    reset(f[i]);
    es[i]:=adr0+IntToStr(i)+'.txt';
    assignfile(ef[i], es[i]);
    rewrite(ef[i]);
  end;
repeat
for i:=0 to 9 do
  begin
    {$I-}
    read(f[i], c[i]);
    if IOResult<>0 then
      break;
    {$I+}
  end;
tr:=true;
for i:=1 to 9 do
  if (c[i]<>c[i-1]) then
    tr:=false;
if tr=false then
  for i:=0 to 9 do
    write(ef[i], c[i])
else
  for i:=0 to 9 do
    write(ef[i], ' ');
until (c[0]=#26)or(c[1]=#26)or(c[2]=#26)or(c[3]=#26)or(c[4]=#26)or(c[5]=#26)or(c[6]=#26)or(c[7]=#26)or(c[8]=#26)or(c[9]=#26);
writeln('Complete');
for i:=0 to 9 do
  begin
    closefile(f[i]);
    closefile(ef[i]);
  end;
readln;
readln;
end.

[Ecosasha]

Может проще реализовать через Дельфи, как описано в книге
"Василий Корняков Программирование документов и приложений MS Office в Delphi", чем разбирать полностью формат "doc/docx/rtf" ?

[Katus]

мне легче самому разобраться чем что то читать... тем более на книги нет времени

[Katus]

а вообще мне всего лишь надо стянуть инфу из док документа

[Ecosasha]

Открываем любую Дельфи, прописываем туда примерно такой код. То есть кидаем кнопку для выполнения действия, компонент для отображения скопированного текста (например, RichEdit или Memo)

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    RichEdit1: TRichEdit;
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  word:variant;
begin
 Word := CreateOleObject('Word.Application');

Word.Documents.Open('C:\myword.doc');

 RichEdit1.Text := word.ActiveDocument.Range.Text;
 word.Quit;
end;

end.

P.S. Примеров на эту тему очень много.