[cadil]

Сообщение от Kailon

Глянь здесь

Спасибо за исходник. К сожалению, все, что связано в этом исходнике с Экселем - это To Excel и From Excel.
Помогите переписать следующий код применительно к Excel:

Код:

// поиск и выделение
//Search and select word "Picture"
 ilengy:=Length(WordDocument1.Range.Text);
 for j:=0 to ilengy-8 do
  begin
   a:=j;
   b:=j+7;
   if WordDocument1.Range(a,b).Text='Picture'
   then
    begin
     vstart:=j;
     vend:=j+7;
    end;
  end;
 WordDocument1.Range(vstart,vend).Select;