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!!