Ver Mensaje Individual
  #2  
Antiguo 14-04-2007
Avatar de aeff
aeff aeff is offline
Miembro
 
Registrado: oct 2006
Ubicación: Cuba, Guantánamo
Posts: 348
Reputación: 20
aeff Va camino a la fama
Wink 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!!
Responder Con Cita