[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