Копирование области ячеек в Excel

[lexaltd]

Мне нужно скопривоть в Excel е одну область ячеек в другую область.
Копирую так :

Excel : Variant;

procedure TForm1.BitBtn7Click(Sender: TObject);
var
  DestRange: OleVariant;
begin
  DestRange := Excel.Range[Excel.Cells.Item[5, 18], Excel.Cells.Item[7, 24]];
  Excel.Range[Excel.Cells.Item[5, 12], Excel.Cells.Item[7, 23]].Copy(DestRange);
end;

Копирую типа столбцы , текст копруется , а формат ячеек не копируется ( тоесть у меня некоторые ячейки оъеденены ), оъеденение не копруется

Вопрос: как скопировать область ячеек как в оригинале , тоесть с оъеденением , выравниваем , переновсом слов и т.д.

Зарание спасибо.

[Greblin]

Копирование формата

const xlPasteFormats = $FFFFEFE6;
        xlNone = $FFFFEFD2; 
var WS: Variant; //рабочий лист
//из Excel_TLB
...
WS.Range['A1','W1'].Copy(EmptyParam);
WS.Range['A2','W2'].PasteSpecial(xlPasteFormats,xlNone,False,False);

[lexaltd]

Greblin - спасибо вроде оно , но возник ещё один вопрос.
После Copy происходит выделение области , и после PasteSpecial оно не пропадает , получается выделенно то что скопировал и то что вставил , как програмно снять ити два выделения ?