Crear un archivo Word desde un Memo

[RoyTan]

Saludos al Club.

Tengo una pequeña duda y agradecería enormemente vuestra ayuda.

¿Cómo puedo guardar el contenido de un Memo, en un archivo con formato Word 2003 o superior?

Gracias.:D

[cHackAll]

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

[RoyTan]

Excelente.

Otra duda.

¿Cómo puedo comprobar que el la carpeta Word de la ruta C:\Word , no existe el fichero Texto.doc?
Si no existe, que lo cree, y si existe, que me avise de su existencia.

Gracias

[cHackAll]

if FileExists('c:\word\noseque.doc') then
...

Saludos (http://www.clubdelphi.com/foros/search.php)

[RoyTan]

Perfecto.

Gracias CHackAll.

[luxus]

Hola amigos,

¿Me podriais indicar cómo puedo abrir una plantilla de Word, el cual ya tiene su encabezado y pie de pagina para rellenar el texto que quiero añadir a partir de una aplicación en delphi?


En otras palabras, pulsando un boton en la aplicación se debería abrir una plantilla de word y rellenar la informacion de un memo en el que voy cargando el texto que quiero mostrar al final en el archivo de word.

Gracias y un saludo