Текущий архив: 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.025 c