Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.11.13;
Скачать: CL | DM;

Вниз

Не все закладки удаляются с помощью TWordApplication   Найти похожие ветки 

 
Донской ©   (2003-10-31 17:09) [0]

День добрый!
В следующем коде WA - это twordapplication.
Я успешно прошеол по всем закладкам, повставлял куда надо нужный текст, а теперь хочу закладки удалить. Однако,
почему-то не все закладки удаляются.


wa:twordapplication;
count_:tolevariant;
...
try
l:=wa.activedocument.bookmarks.Get_Count;
for k:=1 to l do
begin
count_:=k;
wa.activedocument.Bookmarks.Item(count_).delete;
end;
except
end;


В чем дело, не знаете, Мастера?


 
Донской ©   (2003-10-31 17:42) [1]

Нет, понятно что там на самом деле цикл от 0 до L-1 это я так, однако больше половины заклвдок остается в документе не удаленными...


 
Sandman25 ©   (2003-10-31 17:44) [2]

Попробуйте for 0 to L заменить на for L downto 0


 
Донской ©   (2003-10-31 18:10) [3]

Хм... Хорошо, пять сек...
Ух ты, сработало!
Спасибо!



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

Текущий архив: 2003.11.13;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.054 c
7-42139
Keith Flint
2003-09-01 08:57
2003.11.13
Com-порт


7-42177
elected
2003-08-29 10:59
2003.11.13
Как сменить серийный номер тома ?


3-40992
.::D.e.M.o.N.i.X::.
2003-10-15 14:22
2003.11.13
Посоветуйте справочник или книжку.


3-40974
explorer
2003-10-16 07:11
2003.11.13
Paradox: *.lck


1-41360
esVer
2003-10-29 16:49
2003.11.13
Корректное освобождение памяти