Ver Mensaje Individual
  #2  
Antiguo 23-01-2008
Avatar de cHackAll
[cHackAll] cHackAll is offline
Baneado?
 
Registrado: oct 2006
Posts: 2.159
Reputación: 20
cHackAll Va por buen camino
Código Delphi [-]
uses ComObj;

procedure TForm1.Button1Click(Sender: TObject);
var Word: OleVariant;
begin
 Word := CreateOleObject('Word.Application');
 Memo1.Lines.SaveToFile('c:\texto.txt');
 Word.Documents.Add('c:\texto.txt');
 Word.ActiveDocument.SaveAs('c:\documento.doc');
 DeleteFile('c:\texto.txt');
 Word.Quit;
end;

Claro que tambien funcionaría; Memo1.Lines.SaveToFile('c:\texto.DOC');

Saludos
Responder Con Cita