[aeff]

saludos, espero que te sirva esto:

implementa esta función en tu unit:

Código Delphi [-]
...
  uses ComObj;
...
procedure GetDocAsTxt(FileName, SaveTxtFileTmp: string; var TxtDoc: string);
var
  WordApp: Variant;
  vTxtFile: TextFile;
  TxtData: string;
begin
  WordApp := CreateOleObject('Word.Application');
  WordApp.Documents.Open(FileName);
  WordApp.ActiveDocument.SaveAs(string(SaveTxtFileTmp), 2);
  WordApp.ActiveDocument.Close;
  WordApp.Quit;
  AssignFile(vTxtFile, SaveTxtFileTmp);
  Reset(vTxtFile);
  TxtDoc := '';
  while not Eof(vTxtFile) do
    begin
      Readln(vTxtFile, TxtData);
      TxtDoc := TxtDoc + TxtData + #13#10;
    end;
  CloseFile(vTxtFile);
  DeleteFile(SaveTxtFileTmp);
end;

ahora, en el evento onclick de un button por ejemplo, pon esto:

Código Delphi [-]
var
  Archivo: string;
  i: Integer;
begin
  GetDocAsTxt('C:\aeff.doc', 'C:\aeff.txt', Archivo);
  for i := 1 to Length(Archivo) do
    ShowMessage(Archivo[i]);

dime si te funciona ¿ok?

saludos

aeff!!