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.

[[cHackAll]]

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

[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]]

Código Delphi [-]
 if FileExists('c:\word\noseque.doc') then
  ...

Saludos

[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