1 Тема от Fck_This

  • Обход параграфов таблиц
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Тема: Обход параграфов таблиц

Как обработчику передать команду не рассматривать абзацы в таблице при использовании цикла for i - next i ?

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871

2 Ответ от viter.alex

  • Обход параграфов таблиц
  • viter.alex
  • Модератор
  • Неактивен
  • Откуда: Харьков, Украина
  • Зарегистрирован: 21.12.2009
  • Сообщений: 884
  • Поблагодарили: 140
  • За сообщение: 2

Re: Обход параграфов таблиц

If ActiveDocument.Paragraphs(i).Range.Information(wdWithinTable) = True Then
  'находится в таблице
End If
Лучше день потерять — потом за пять минут долететь!

Сайтviter.alex

3 Ответ от Fck_This

  • Обход параграфов таблиц
  • Fck_This
  • генерал-полковник
  • Неактивен
  • Откуда: Минск, Беларусь
  • Зарегистрирован: 13.07.2016
  • Сообщений: 648
  • Поблагодарили: 97

Re: Обход параграфов таблиц

viter.alex пишет:
If ActiveDocument.Paragraphs(i).Range.Information(wdWithinTable) = True Then
  'находится в таблице
End If

Спасибо, уже напридумал. Можно ещё вот так:

If activeDocument.Paragraphs(1).Range.Tables.Count = 0 Then

А можно по шрифту, если он отличается в таблице. (У меня отдельный шрифт, центрирующий в таблицах текст).

Спасибо можно перевести на WebMoney-кошелёк R378231864568 или на Яндекс-деньги 410015093172871