procedure TFrmWeekAnalysisQry.BtnExportToExcelClick(Sender: TObject);var wordApp,WordDoc,WrdSelection:variant;strAdd:string;i,j,iRangeEnd,iStart,iEnd : integer;wdPar,wdRange:OleVariant;oShape, oChart,myCol: OleVariant;SumJHTonCount, SumWCTonCount, PJ…