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:

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

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

[roman]

Oops! Lo olvidaba:

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

// Saludos

[Alexander]

Muchicimas gracias por tu ayuda.

Alexander