Guardar el documento con un nombre dado desde Delphi

[Alexander]

Hola a todos.

Necesito hacer lo siguiente: Tengo un archivo de word abierto, quiero desde Delphi almacenarlo con un nombre X.

Como puedo hacer esto.

Gracias

[roman]

Pues todo depende de cómo hayas abierto el documento. Si utilizas una componente TWordDocument será tan sencillo como:


var
OleFileName: OleVariant;

begin
OleFileName := 'archivo.doc';
WordDocument1.SaveAs(OleFileName);
end;


// Saludos

[Alexander]

Gracias por tu respuesta. Pero lo que quiero es guardar un archivo que abri directamente abriendo Word.

Me explico, Abrí Word escribí algo y ahora desde delphi quiero colocarle el nombre al archivo que cree.

Gracias si me puedes ayudar.

Alexander

[roman]

var
Document: TWordDocument;
OleFileName: OleVariant;

begin
if WordApp.Documents.Count > 0 then
begin
Document := TWordDocument.Create(nil);

try
Document.ConnectTo(WordApp.ActiveDocument);
OleFileName := 'archivo.doc';
Document.SaveAs(OleFileName);
finally
Document.Free;
end;
end;
end;


// Saludos

[roman]

Oops! Lo olvidaba:

WordApp en el código anterior es una componente TWordApplication.

// Saludos

[Alexander]

Muchicimas gracias por tu ayuda.

Alexander