excel 对单元格自动分行

excel: Variant;
WBk, WS, RG: OleVariant;


try
Excel := GetActiveOleObject(\'Excel.Application\');
except
Excel := CreateOleObject(\'Excel.Application\');
end;
wbk:=Excel.ActiveWorkbook;
WS:=Excel.Worksheets[1]

RG:=WS.Range[WS.Cells[3,1],WS.Cells[9,9]];
RG.HorizontalAlignment := xlHAlignCenter;
RG.VerticalAlignment := xlHAlignCenter;
RG.WrapText := True;