mira esto colega
hola colega, he intentado resolver algo de tu problemita,
me ha funcionado de lo mejor en Delphi 5, pruebalo, es posible que te de buenos resultados:
uses ComObj;
procedure TForm1.Button1Click(Sender: TObject);
var
WordApp, WordDoc: OleVariant;
begin
Screen.Cursor := crHourGlass;
WordApp := CreateOleObject('Word.Application'); {Creo el objeto Word.Application}
WordDoc := WordApp.Documents; {Obtengo el metodo Documents de la app.Word creada}
WordDoc.Open('C:\aeff.doc'); {Abro el archivo "C:\aeff.doc"}
WordApp.ActiveDocument.SaveAs('C:\aeff.txt', 2); {Le digo a la app.Word que le documento activo lo guardaré
en "C:\aeff.txt", ahora, como decias .txt, el parametro 2,
es quien especifica ese formato}
WordApp.Quit; {Por ultimo, cierro la app.word}
Screen.Cursor := crDefault;
ShowMessage('Ya se ha guardado su TXT, puede continuar...');
end;
espero que te sea util mi respuesta, si tienes alguna otra dudita, publicala en el foro para poder intentar resolverla
salu2!! aeff!!
|