Guardar el documento con un nombre dado desde Delphi
 

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

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

Código Delphi [-]
var
  OleFileName: OleVariant;

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

// Saludos

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

Código Delphi [-]
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

Oops! Lo olvidaba:

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

// Saludos

Muchicimas gracias por tu ayuda.

Alexander