[Farel]

Здравствуйте!!!
findrange:=Excelworksheet1.Cells.Replace(What:='qq q',Replacement:='www');
Подскажите пожалуйста как сменить цвет шрифта, где произошла замена
Спасибо

[san-46]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13

... var   Address : string; ... findrange := Excelworksheet1.UsedRange.Find(What:='www', LookIn := xlValues,                                  SearchDirection := xlNext); if not VarIsEmpty(findrange) then begin   Address := findrange.Address;   repeat     findrange.Font.Color := clRed;     findrange := Excelworksheet1.UsedRange.FindNext(After := findrange);   until Address = findrange.Address; end;