bueno hice esto y creo que si me abre el word ahora lo que estoy intentando es leer lo que tiene el documento word y pasarlo a un txt pero el word me abre y me tira un monton de caracteres extraños y a la hora de mandarlo a un txt me manda los mismos caracteres porfa ayudenme !!!!
uses
SysUtils,
Variants,
adodb,
ActiveX,
Classes,
ComObj;
var
valores1:string;
Datos : TextFile;
f : textfile;
I : Integer;
begin
AssignFile (Datos, 'C:\pru.doc');
assignfile(f,'C:\test.txt');
Reset (Datos);
I := 1;
While Not Eof (Datos) do
begin
Readln (Datos, valores1);
if fileexists('C:\test.txt') then append(f) else rewrite(f) ;
writeLn('Escribiendo linea en el txt');
writeln(f,valores1);
closefile(f);
end;
CloseFile (Datos);
readln;
end.
|