Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Вниз

Word   Найти похожие ветки 

 
Plt   (2002-07-04 10:26) [0]

Здрасте всем. Как узнать индекс рисунка в параграфе или предложении документа Word.


 
AFROLOV   (2002-07-04 10:46) [1]

Почитай про свойства Range и Selection в справке по VBA.


 
Plt   (2002-07-04 11:17) [2]

читал я уже про них, может че не заметил, подскажи плз. Через Range.InLineShapes могу узнать высоту и ширину и еще кучу не ненужной мне инфы, а номер его не хочет показывать.


 
AFROLOV   (2002-07-04 11:53) [3]

Тупой переборный вариант (но работает как правило достаточно быстро), адаптируешь и доработаешь его сам
Если твой объект 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-05 13:37) [4]

Все у меня получилось, огромное спасибо!



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2002.07.18;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.44 MB
Время: 0.008 c
14-58322
kirilll
2002-06-22 08:28
2002.07.18
systary помогите со статьёй разобраться


1-58074
Lamer86
2002-07-05 10:09
2002.07.18
как получить часть String


1-58047
nitro313
2002-07-08 03:21
2002.07.18
Мастаки помогите! Не могу сам дойти...


1-58134
Чайник2
2002-07-09 05:28
2002.07.18
CD-ROM


7-58342
ah
2002-04-27 19:49
2002.07.18
подскажите мне пож-ста использую Comportlibraru ver. 2.60





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский