| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Word [D5, Win95/98]
Plt © (2002-07-04 10:26:00)Здрасте всем. Как узнать индекс рисунка в параграфе или предложении документа Word.
Plt (2002-07-05 13:37:00) [1]Все у меня получилось, огромное спасибо!
AFROLOV (2002-07-04 11:53:00) [2]Тупой переборный вариант (но работает как правило достаточно быстро), адаптируешь и доработаешь его сам
Если твой объект MyPicture
Вариант 1:
for i:=1 to Range.InLineShapes.count do
begin
if (Range.InLineShapes.range.start=MyPicture.range.start and Range.InLineShapes.range.end=MyPicture.range.end) then
begin
PicNum:=i;
break;
end;
end;
Данная проверка основана на том, что в офисе объекты рисунки не могут в точности накладываться друг на друга.
Вариант 2:
MyPicture.range.Id:="Мой объект";
for i:=1 to Range.InLineShapes.count do
begin
if (Range.InLineShapes.range.Id=MyPicture.range.Id) then
begin
PicNum:=i;
break;
end;
end;
Данная проверка основана на том, что объекту range можно присвоить уникальное имя.
Plt (2002-07-04 11:17:00) [3]читал я уже про них, может че не заметил, подскажи плз. Через Range.InLineShapes могу узнать высоту и ширину и еще кучу не ненужной мне инфы, а номер его не хочет показывать.
AFROLOV (2002-07-04 10:46:00) [4]Почитай про свойства Range и Selection в справке по VBA.
| |
